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VORWORT 


Das Buch "Programme für CBM” soll Ihnen die Möglichkeit geben 
leistungsfähige Programme zu minimalen Kosten auf Ihrem System 
zu implementieren. 


Wir haben bei der Zusammenstellung der Programme an den ernst- 
haften Anwender sowie an den Kreis gedacht, der den Mikrocom- 
puter auch zur Zerstreuung in der Freizeit nutzen möchte. Deshalb 
sind Rechnungsschreibprogramme, Textverarbeitung usw., aber auch 
lustige Spielprogramme wie Musik, Mäuse, Lotto usw. dabei. 


Die Programme verwenden kaum PEEK und POKE Befehle, so daß 
die meisten Programme auf allen CBM- und PET-Computern laufen 
dürften. Trotzdem haben wir am Schluß des Buches noch eine ROM- 
Vergleichsliste beigefügt, die Ihnen sicherlich gute Dienste leisten 
kann. 


Wir wünschen Ihnen bei der Programmierung viel Spaß und Erfolg. 


Holzkirchen, Frühjahr 1981 L. Oswald 
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Roulette 


ROULETTE 


Dieses Programm stellt eine vollständige Simu- 
lation nach den internationalen Vereinbarungen 
dar. Nach Run spielt das Programm zehn Spiele 
zur Demonstration. Auf den Bildschirm können 
Sie an Hand eines Pfeiles und einem Asterik 
sehen, welche Zahl gefallen ist. Nach dieser 
kurzen Einleitung werden Sie aufgefordert 
selbst zu setzen. Sie können jetzt einen Betrag 
eingeben den Sie insgesamt in dieser Runde 
"verspielen”” möchten. Das Programm führt 
automatisch Buch über Ihre Gewinne und 
Verluste. 


Sie können auf die Zahlen 1 - 36 setzen. 
Ebenfalls sind Serien oder Gerade sowie Zahlen, 
Dutzend, Manque, Passe und Transversalen 


PRINT"" 
PRINT 
PRINT" 
PRINT: PRINT 


ARDULETTEM® 


setzbar. 


TA = Transversale 1-2-3 
TB= Transversale 4-5-6 
IM = Transversale 34,-35-36 


Bei 0 sind alle Einsätze verloren 


P= PAIR (alle geraden Zahlen) 

I=  IMPAIR (alle ungeraden Zahlen) 
MA = MANQUE (Serie von 1 — 18) 
PA= PASSE (Serie von 19 — 36) 
D1= 1. Dutzend von14- 12 

D2 = 2. Dutzend von 13 — 24 

D3 = 3. Dutzend von 25 — 36 

R= Rot 

S= Schwarz 


FRINT"EINE VOLLSTRENDIGE SIMULATION NACH IN- 


PRINT" 
PRINT IM" 


TERNATIONALER WEREINEARUNG 


FRINT"FOLGENDE SPEZIELLE INSTRUKTIONEN SIND 


FRINT" JEDOCH ZU BEACHTEN: 
PRINT" MAIN" 
FORI=1T035:PRINT".": :NERT 
PRINT:PRINT 
PRINT" 
GETA$: IFA$=""THENI148 
IFA&=" "THENIEB 
PRINT"T" 


SSPACE — DRUECKENS 


FRIHT"IN DIESER INTERNATIONALEN VERSICH KOEN- 
PRINT"NEN SIE EINE BELIEBIGE ZAHL YON :" 


PRINT" 1-36 
PRINT 
PRINT"EBENFALLS SIND 
PRINT" ZAHLEN, 
PRINT" SPRSSEM, 
FRINT"STAB= TEANSVERSALE 
PRINT" STB#E TEANSVYERSALE 
PRINT" ATM@= TRANSYERSALE 
PRINT 


SSETZEN." 


ADUTZENDE, 


1-2-23 


PRINT’, unonuunoen nun nn .nuonon 


PRIHT 
GOSUBZE4A 


4-5-6" :FRINT" 
24-35-36" 


SPACE - DRUECKEN 


"SERIEN®, ÜDER GERADEN, " 
SMANGLER LIND 
SOWIE STEANSVERSALEM SETZBAR CHIER BEDEUTET Z.B.:":PRINT"M" 


.":PRINT" .":PRINT" a 


PRINT"T" 

PRINT"DIE ZAHLEN YON 31-368 SIND SPIELZAHLEN= SCPLAIN-ZAHLEN>E" 
PRINT 

PRINT"KOMMT 4 @ @, DANN ALLE EINSAETZE VERLOREN. 
PRINT"SPRIR KIP W)=GERADE ZAHLEN 

PRINT" AIMPAIREK SI WI=LNGER. ZAHLEN 

PRINT 

PRINT" MANGLERK MA) =SERIE YON a 1-15 8 
PRINT"SPRSSE MOSPRAM)=5SERIE YON 19-365 E" 

PRINT 

PRINT"SDI B=SERIE VON 4 1-12 8 

PRINT"AD2 ®ESERIE WON 13-24 8 


\PRINT"SD3 S=S5ERIE VON 325-356 E":PRINT"M" 


PRINT" SROT = ODER RE = ROTE ZAHLEN 
PRINT" SSCHUARZB ODER SE = SCHW. ZAHLEN" :PRINT"M" 
PRINT"WERFEN SIE NUN MIT SSFRACER EINEN BLICK AUF DEN TISCH I!" 
GOSUB2Z648 
PRINT"T" 
GOSUR2210 
FORZZ=1T018 
ggzlygn : 7$=" en :pggztn 9 
%=INT{RNDC 1337) 
IFX<1B8THENYF="N ":GOTO560 
Ygzury" 
GOSUB2188 
een 
A$g="5" 
G=8: PRINT" SOME" : IF$<SIOTHENPRINTTAB<E>I" "SW" A$:GOTOB18 
PRINTTAB<S>”" PR" A$F 
IFX>12THEN638 
ONX+1G0OT0&688, &98, 780, 718, 720,730. 740, 730. 768, 778. 780, 790,808 
IFX>25THENGSB 
ONX-12G0OT081B, 820, 8320. 844, 850, 560. 870, 880. 890, 200, 910, 220,730 
ONX-2560T0948, 950, 968. 276. 980.999, 1098, 1910, 1928, 10938, 1048 
FPRINT"SIM" :PRINTTAB<1FIXF 
GOSUB2808 
PRINTTAB<172Y$:G0T01658 
K=1:60T02480 
K=2:G0T02430 
K=3:G0OT02488 
E=1:60T02498 
=2:60T02498 
K=3: 60702496 
K=1:60T02508 
K=2:G0OT025889 
K=3: GOTO2580 
K=1:60T02518 
K=2:6G0T02510 
K=3:6GOTO2S10 
=1:G0T02528 
:GOT023I28 
: GOT023529 
: GOTO2539 
:GOT02S30 
:GOTO2339 
:GOTO2I48 
:GOTOZI4B 
:GOTOZI4H 
:GOTO2ESSB 
:GOTO2S58 
:GOT02558 


ART RNTT 


Wem Grm ion 


« .. 


Kur 


7 


=1:60702568 
K=2: GOT02568 
K=3:G0T02568 
K=1:60T02578 
2:60702578 
3:G0T02578 
1:G0OT025930 
=2:G0T02588 
=3:G0T02588 
=1:G0T02598 
=2:60T02590 
=3:60T02598 


LINE SE ne 20 5 09 


4 NEHTZZ 
3 GOSLUE2098 


FRINT"S":FORI=1T029:FRINT: NEXT 
PRINT"M NUN SIND SIE AN DER REIHE!TI"; 


3 GOSUB=2904:GOSUB2170 


PRINT"TWIEVIEL GELID HABEN SIE LIEBERHAUFT ZUM  WEGSCHMEISSEN BEI SICH "; 
INFPUTAS:PRINT"TITI': :GOSUR2170 


3 PRINT"TBETZEN SIE EINE ZAHLE CDER S5ERIERM:"; 


INFUTB$:PRINT"TTT' :GOSUB2170 
INPUT"TWIE HÜCH WOLLEN SIE SETZEN" :C 
IFC<=ASTHEN1 120 


a PRINT"TTS:GOSUB2Z17G:PRINT"SOVIEL HABEN SIE NICHT MEHR !T" :GOSUB2aAA 


GOSUBZ17G:FRINT"TBETZEN SIE IM RAHMEN IHRER MOEGLICHKEIT!TT": :GOSUB2AA0 


4 GÜSUBZ17G:PRINT"TY"':GOTO1140 


GOSUB2138: FRINT"TITY' :GOSUBZ170 
IFVYALCB$>>OAHNDVAL<BSISSTTHENI 798 


3 IFES="P"ÜRB$="PAIR"THENI4OG 
a IFB$="T"ORB$=" IMPAIR"THEN1450 


IFB$="MA"ORBS="MANQUE" THEN1588 
IFB$="PA"ORB$="PASSE" THEN1530 

IFB$="D1 "ORB$="D2"ORB$="D3" THEN157@ 
IFB$="R"ORB$="ROT"THENI1620 
IFB$="S"ORB$="SCHWARZ"THEN165@ 
IFB$>"T"ANDBS<"TN"ANDRIGHT$CB$; 13<>" J"THEN1318 


4 PRINT"TITY':GOSUB2170:PRINT"TUNGUELTIG, BITTE NEU SETZEN!T"; :GOSUBZOOG 


GOSUBE1 FB: PRINT"TI":GOTO1128 


31a GOSUE2OSO 


IFCB$=" TA" ANDSS4I ORCE$&=" TB" ANDX>3SANDS<CT I THEN1390 
IFCB$="TC"ANDSPEANDALTIOPORCB$=" TD"ANDA&>IANDA<Z13> THEN1328 
IFCRB$="TE"ANDS>LZANDSLIEHORCBS="TF"ANDS>ISANDSS19> THEN1390 
IFKB$=" TG"ANDS>1SANDA<ZZZIORCB$=" TH" ANDSPZIANDKCZSITHENI32O 
IFCB$="TI"ANDKFZ4ANDKSZSPORCR$=" TK"ANDADZFANDASS1 I THEN 390 
IFCB$="TL"ANDS>S3BRANDS SSH OR CB$=" TM"ANDA>33> THEN1390 
GOTO1728 


3 W=12:G0T016$0 


GOSUB20S0 


E ie 1 


IFI=XTHENI 28 
J=I+2:1IFIZ36THENI1420 
GOTO167B 

GOSUBZASO 


4 IFI=XTHENIE?A 


I=J+2: IFI<S6THEN1478 


X GOTO1 720 
3 GOSUB2088 


IF&>OANDSSIITHENIE"O 
GOTO1728 


3 GOSUBZOSG 


IFS=>OANDAZIFTHENIFZ 
GOTO16780 


3 END 


GOSUB2088 

IFB$=" DI "ANDAFORNDA<LSTHENN=2:G0OTO16588 
IFB$=" DZ" ANDS>PLZANDSCZSTHENWS2: GOTO1ES8 
IFE$="D3S"AND#A>24 THENW=E: GOTD1650 

GOTO1 728 

GOSURZ2088: GOSUBZ21S0 

IFG=1THENG=B: G0OT01670 

GOTO172A 


550 GOSUB2US0 
5620 G=8:GOSUB2188: IFG=1THENG=B:!GOTO172G 
ra Wei 


a PRINT" 


4 PRINT" TABCEIK" N ":GOSUP2160 
PRINT"T S5SEWÖNNEN I -ITIY TABCZ4 > ATHN&C"N MN" ; 


GOSUB2BAU: PRINT"TY' :GOSUB217C 
AS=AS+W8C:GOTO1120 

PRINT" SEIN" TABCE>M"N 
GOSUB2168 


3 FRINT"T VERLOREN I! -TITY" TAB<Z4>AS-C"N | MSIE"; 


AS5=A5-C:GOSUB28098 


A PRINT"/TY' :GOSUFZ170 


IFAS>BOTHEN1128 
GOTO1838 

B=VALCB$) 

GOSUB2U58 
IFS=BTHENW=36 :GOTO1684 
GOT01728 

PRINT"TIM" 

PRINT" 
FRINTTM 
PRINT" 
PRINT" 
PRINT" 


PRINT" 
PRINT" ER RRRER ER 

PRINT'"M AaSIE L E 1 CHTFUSS W":FRINT 

FRINT"WÖOLLEN SIE TROTZDEM WEITER GELD RAUS-  SCHMEISSEN?":PRINT"M" 


PRINT"DANN HOLEN SIE NEUES GELT UNI DRUECKEN SIE: 
4 PRINT"M S5SPACE® 
GOSUBZE48 
on "THENGOSUF2218:GOT01078 
4 END 
1 PRINTTARBLZBIE$ 
3 FORT=1T02688: NEXTI: RETURN 


A PRINTTABCZSIUS:G0T01958 


PRINTTRAB< 15? #$: RETURN 


3 PRINTTABCISPTF:GOTOZELA 


PRINTTAB<1EIK$: RETURN 
PRINTTAB<1SYY7$:GOTOZA1A 


3 PRINTTABC213S#: RETURN 
3 PRINTTABC21>Y$:GOT02810 


»=1INTCRNDE1D#37) 
IFSX>OTHENRETURN 


= PRINT"RMAEM" TABCE>R" N r 

> GOSUBZ160 

a PRINT" SDIE BANK GEMINNT IM -ITTV TABCZ4>A5S-C'H MIN"; 
= AS=RS-C:PRINT"T" 


IFASS=BTHENGOSUB2ZB08 : GOTO1S34 


2120 GOSUB2860:G0OSUB2174:GOTO1120 

2138 FORI=1T0OS:FRINT" NICHTS GEHT MEHRIE”, 

2148 FORI=1TO7O:NEXT 

2152 PRINT"NICHTS GEHT MEHR !TI":FORI=1T070: NEXT:NEXT: RETURN 
2164 FORI=1TO15:PRINT:NEXT 

2170 FORE=8TO120:FRINT" "5 :NEXT:PRINT"ITTT :RETURN 

2188 IF#=10RX=30R#=SORK=S7ORKSI0ORK=120RK=140RH=150RA=1SORS=1FTHENG=1 RETURN 
21998 IFS=210RR=S230RK=250RK=SZ7ORKS3BORH=S3Z0RH=S34ORK=36THENG=1 
2200 RETURN | 

2210 PRINT"T" 

z22d PRINT" ne 

2230 PRINT" IP a IM I 


2249 PRINT" en A ———H A | 
2250 PRINT" time le ıN] 
Z260 FRINT" | I ısı 41 Sl 6 Id 
zer PRINT" ı Tr NET PR SI. dl 
2288 PRINT" I 118111 1128 IE| 
2298 PRINT" _____ ERIEHRRHET 
z>a4 PRINT"TISCH IM | IFIiS 14115 II 
zsla PRINT"SFIELBE- | IAIRISMII7IAISEM IMI| 
2320 PRINT"TRIEB | IITINSMISGO I EI IP 


2350 PRINT" IRIzZIEeSMI24 1. | 
2340 PRINT" <LAEUFT REES 

2350 PRINT" 1@ MAL» INIESEIZEIETE IRI ———— 
2360 FRINT"DAHN KOENNEN IO 128129 ISoM 10 1 SIE HABEN I 


==7?8 PRINT"SIE SELBST ITı31 182133 UI NOCH DM: | 
2336 FRINT"SPIELEN! IEISS4EI3S ISI6EH 161 | 
2290 PRINT" a EEE: "or | 


2400 PRINT" WUTZ.:1 11.12.19. 1 1 ——— 
2410 PRINT" en 

2420 PRINT 

>430 RETURN 

24453 ONKGOTO2458, 2460, 2479 

2450 GOSUB2020 :GOSUB199G :GOTO2030 

2460 GOSLUB2840:603UB1990: 60102850 

2470 GOSUB2068:GOSUB199A:GOT02A7A 

2480 PRINT" MM" :GOTO26AU 

2490 PRINT" REN" :GOTO2SBR 

2508 PRINT" MEINEN" : GOTO260B 

2510 PRINT" MERIIN" :GOTO2440 

2529 PRINT" SOIIEIN" :GOTO2440 

2530 PRINT " SOMMIIRSIDN" : GOTO2440 

2542 PRINT" SEHKKTRIIKN" :GOTO2440 

2559 PRINT" MIMIK" :GOTO2440 

2564 PRINT " SAMRIEIRDSTRIEN" : GOTO2440 

2578 PRINT" SRDIKITERTRITSIRKEIN" : GOTO2440 

2589 PRINT" SBIKDKRIKISTERTEIEN" : GOTOZ2440 

25990 PRINT " SEMINIMISRTRISTIRTEISTRDIEN" = GOTO2446 

2600 ONKGOTO2619,2629,262 

2618 PRINTTABC169X$: GOSUB1I9B: PRINTTAR(C16)7$:G0T02010 
2620 PRINTTABC19)%$:GOSUB1IFR: PRINTTABC19)V$:G0T02A10 
2630 PRINTTABCZ2Y2$: GOSUB1998: PRINTTAB<22)7$:GOTO2918 
>64a GETA$: IFA$=""THEN2640 

2ES RETURN 
READY. 


NOTIZEN 


Textverarbeitung und 


Rechnungen schreiben 


Textverarbeitung und Rechnungen schreiben 


Dieses Programm erklärt sich nach dem eingeben 
von RUN fast von selbst. Es erlaubt Ihnen das 
Erstellen von 


1. Rechnungen 

2. Lieferscheinen 

3. Lieferanten Bestellungen 
4. Mahnungen 


Ab Zeile 550 sollen Sie zuerst die Daten für 
Ihren Firmennamen, Konto und Lieferungs- 
und Zahlungsbedingungen eingeben. 

Wenn alle Positionen eingegeben sind, wird als 
Abschluß eine Menge von 0 eingegeben. Dies 
führt Sie aus der Abfrageschleife über die ein- 
zelnen Positionen heraus. Unser Beispiel ent- 
hält drei Positionen und berücksichtigt einen 
Gesamtrabatt von 20%, der bei jeder Position in 
gleicher Weise zum Abzug kommt. Es lassen 
sich auch unterschiedliche Rabatte pro Position 
berechnen. Das Datum braucht nur einmal zu 


a REM SPEICHERBEDARF 13 KR 
a REM 

a REM 

8 FOKES3465. 14 

a PRINTCHREL 147) 

ra PRINT" 
20 FRINT 


Beginn des Rechnungsschreibens eingegeben 
werden. Es bleibt dann für alle anderen Kunden 
an diesem Tage bestehen. Wollen Sie das Datum 
ändern, müssen Sie das Programm anhalten und 
neu starten. 

In Zeilen 550 — 630 finden Sie die Daten über 
den Absender der Rechnung. Auch die Zeilen 
2170 — 2220 und 2740 -— 2790 müssen Sie an 
Ihre Firma und Bedingungen anpassen. Sie 
können diese nach Ihren eigenen Vorstellungen 
und Bedingungen gestalten. 


Das Programm wurde auf einem CBM 3032 ge- 
schrieben und getestet. Das eigentliche Pro- 
gramm benötigt 12K RAM zur Ausführung in 
diese Version ist ein RAM-Bereich von 32K 
empfehlenswert, da sonst die DIM-Befehle 
in Zeile 670 und 680 entfernt werden müssen 
und eine einwandfreie Funktion nicht mehr 
gewährleistet ist. 


!0 REM RECHNUNG-LIEFERSCHEIN/EIGENE BE STELLUNG /BRIEFTEXT 


*#%%% SBEDIENUNGSANWEISUNGE KR" 


ı12&4 PRINT"ANTWORTEN SIE BITTE GENAU AUF MEINE n 


FRINT"FRAGEN. WENN ICH ZB. MENGE ? FRAGE, DANN" 
PRINT"DUERFEN SIE NUR MIT ZAHLEN ANTWORTEN 1!" 
FRINT"NACHDEM SIE EINE FRAGE BEANTWORTET HA-" 
PRINT"BEN.DRUECKEN SIE IMMER DIE RETURN-TRSTE" 
PRINT"DAMIT ICH WEISS,WANN IHRE EINGABE BEEN-" 
FRINT"DET IST.NUR WENN ICH SIE BITTE,EINE ENT" 
PRINT"SPRECHENDE ZIFFER ZU DRUECKEN. WEISS ICH" 
PRINT"ÖHNE RETURN BESCHEID. " 

PRINT"SOLLTEN SIE SICH WAEHREND DER EINGABE" 


3 PRINT"VERSCHREIBEN.DANN LOESCHEN SIE MIT DER" 


PRINT"DEL-TASTE DIE FALSCHEN ZEICHEN!" 
FRINT"WENN ALLERDINGS EINE NEUE FRAGE ER-" 
FRINT"SCHEINT,KOENNEN SIE AN DER VORIGEN ANT-" 
FRINT"WORT NICHTS MEHR RENDERN. " 

FRINT"SIE MUESSEN DANN BEI MEINER NRECHSTEN” 
FRINT"FRAGE OHNE ANTWORT AUF RETURN DRUECKEN" 
FRINT"UND NACH MEINER READY-MELDUNG NEU AN-" 
FRINT"FANGEN, INDEM SIE RUN SCHREIBEN !" 


FRIHT:PRINT" FLUER START LEERTASTE DRUECKEN I" 


GETSF: IFS$=""THEN39EO 


INPUT"  SDATUME" ;DAS:PRINT 

RENES FH Here 
REMUMSCHALTUNG AUF GROSSBÜCHSTABEN 
FOKESI4E8, 12 

REN SF HS 
REMDISTANZFELDER FUER TEXTAUSDRLICK 

It= “ “u 5 Ef= ” u b F#t= u u: Hf= “ u iR J$= u „ s $= n 
RENESKSrS re 

REM GRAFIK FUER BRIEFKOPF 


SSF= " [an Bu u Ta un Ta on Ba ans BE aus Var ae Dr ne Ba Done DE ons Da A DEE ac os DE As TE dire BE ae BE ae BE a a" 
Stf= n GP Due SP Due SP Due TR Be up Ze UP Be 79 De SP Be Ur Ze Ur De or De ee Be Fr Te er Zr u | | 


EI 6 Do ee | 
nl$t="| jr" 
HEF="000H 00H 01H HEHE IF FOTO TFT NET" 
FI$="ERNST FISCHER GMBH & CO KOMMANDITGES. " 


Ssu$=" 5138 HEINSBERG-UNTERBRUCH # WASSENBERGERSTRASSE 47-49#TEL 245276071" 


KO$="KONTEN>>" 

“B$="HEINSBERGER YOLKSBANK KTO 1748" 
PA$="POSTSCHECKKTO KOELN 211924-505" 
ZB$="ZAHLEAR REIN NETTO BEI LIEFERUNG!" 


BE$="BERNSTANDUNGEH NUR INNERHALB STAGEN NACH WARENEMPFANG. EIS ZUR VOEL-" 
BZ$="LIGEN BEZAHLUNG BLEIET DIE WARE UNSER EIGENTLM. 
ER$="ERFUELLUNGSORT UND GERICHTSSTAND FÜUER BEIDE TEILE I5T HEINSPERG. " 


FRINTCHREC14F> REM LOESCHT ESCHIRM 
FENS=SF=SESHS HI E cc 
REM MATRIXFELDER FUER SPEICHER 


DIMmAFtER 2.MELEB D,EPIEE ).GCeA >.RAi6B >.RECER ).HECER ) 
‚RBEFCEN) 


DIM EP$Lea 2,G+(CEi >,MEFCEB ".RAFIER ).NEFCER > 
REMF=#=#=-K- HS Haha 

REM ADRESSENEINGAFE 
FRIHTCHRER 147: PRINT :PRINT:FRINT:FRINT 
GOSLIE2348: PRINT 


FRINT" MIN „uU u a a 2 8 an a 2 RR a 2 RR a a a a a RR 8 m 
INPUT"TI  SNAMEBBBBRBI" ;NAF:FRINT 
FRINT" MIN an au 8 8 a 2 2 a SB 8 a UN Ba Ra a a 8 a Rn a 0 
INPUT" TISTRASSEBBBRBRIN" STE: FRINT 
FREINT' MM usa 8 nu 82 a a BB SB SB RB RN SB A RR A HB BAR N En m 
PRINT" Srsssesssssen 


PRINT: GOSUESS4E 

INPUT"TTIT SORTE" 0%: PRINT 
PRINTCHRFCIYT? 
RENFSF=E=-H = 4-4 == 
REM ARBEITSENTSCHEIDUNG 

GE=E: Ta=8: SU=0 
FRIMTCHR$C 1473: GOSUB3S4A: PRINT 


PRIHT" RECHNLING a1" : PRINT 
PRINT" LIEFERSCHEIN a2": PRINT 
PRINT" LIEF.BESTELLUNG 838": FRINT 
PRINT" MAHNUNG ae": PRINT 


GOSUE3548: PRINT 

PRINT"SBITTE HUF DIE ZIFFER DRUECKEN IE" 
GET TA#:IF TA$="" THEN 920 

IF TA&="1" THEN GOTÜ 986 

IF TA$="2" THEN GOTO 1020 

IF TA$="3" THEN GOTO 1060 

IF TA$="4" THEN GOTO 1094 
PRINTCHREC1473:GOT0OS48 
FRINT:FEINT"EINZELRREATTE 7 SC1’NIE" 


3 FRIMTCHRE 1475 :PRINT:!FRINT:!PRINT:PRINT:FPRINT:PRINT:PRINT 


Sag GETTRE:IFTR$=""THENIOD 


Halz 15) 
FAS$ES| 
igcd 
as 
i046 
1252 
1064 
ara 
1090 
1098 
1100 
11 
1120 


| re. a (0 
a a a a 


pa pi 
ıpo3farf. n Farpan) 


ENG 


a a a a 


int pi Di pi 
VERBIN EUKHINEARECN EN 
[Se N a 


add le 


Ug=" RECHNUNG" : GOSUP1100 
GOTO Zac6 

FRINT:FRINT:FRINT"SCHON EEZAHLT 7? SCT/NIE 

GET TB: IFTEF=""THEN1G38 


U$=" LIEFERSCHEIN" :GOSUF1100 

GOTO2ZUS0 

ug=" BESTELLLING" :GOSUB1 100 

GOTOZaSE 

L$=S"z2=22=2=252 22522225232 R 325232 2SS5EESEESESSEEBBEEREEESTERSTES EEE ESFESSEESS 
GOSUBSSSE: GOTOZOSE 

Fü=1 

FRINTCHR$C1472: PRINT" SAUFLISTUNG DER POSITIONEN" 

FORI=BTOS? 

FORSK=1TO48:PRINICHRFC1OF); :NEXTSK 


4 FRINT" "FO :REM POSITIONSNUMMER 


REMk=t= Hs hs 


A REM DATEHEINGABE 
a INFUT"TIBBBISMENGEM" ;MECIP:IF MECID=BTHENGOTO1S520 


IFTRESH"H"THENFRINT" 8 Ü oooouannnusneneenunnun. 
IFTR£="N"THENFRINT" 3 M seiner 
INPUT"T SWARTIKELE"AFCITH 

IFTRE£="N"THEN AFCIISASCIIH" sonen nn" 
IFTAFS>" 1" THENGOTO1S6E 

INFUT" SEINZ.FRE"SEFCI 

IFTR£="N"THENGOTO1438 

INFUT"  SRABATTAR"RBOIN 


1 REMI= Fisher 


REM EINZELRAEATT-BERECHNUNG 
RACID=SCEFCIDERECITYN/1OA 
A=RASID:GOSUR 3250: RA$CI>=X$ 

RAr II=VALCRAFEIND 
RPEFCEINSSTRESCRBEIDD 

RENF=SR=I=SH= 4er 
REM HETTO-EINZELFREIS BERECHNUNG 
NE“ ID=EPETD-FRRCEID R=NECTD :GOSUB32SA: NEFCIISR$ 
REM 
REM MENGEXNETTOPREIS BERECHNUNG 
GCEI>=CMECTDIRCEPCID-RACTPD 


2 3=MECI2:GOSUBFSS2O:MEFCTI=KF:R=EPCI>:GOSUB3Z2I0:EPFCII=SKX$ 


1390 RASCIY=SSTRECRACI)) 

1404 GOTC1446 

1410 REMk=r=kskakshaheregerngeeregere 

i42G REM MENGE#BRUTTOPREIS BERECHNUNG 

1430 GCII=MECTIKEPCI):X=MECI) :GOSUB3329 : MESCII=X$:X=EPCI):GOSUB3259:EPSCI)=X$ 
1440 X=G€1):G0OSUB3250:6$CI)=X$ 

1459 REMk=k=t- Kst 

146 REM ADDITION DER GESAMT-PREISE 

1470 GE=GE+GCI) 

1480 RENk=+=ketsketekeeee ren 

1490 REM POS. NUMMER ERHOEHEN 

ı5aa PO=PO+1 

151 NEXT I 

1524 PRINTCHR&C147) : PRINT" SZUSARETZL. TEXTZEILE? (J/NIE" 
1530 GET ZU$: IFZU$=""THEN153@ 

154m IFFUS="N"THEN GOTO1S60 

155& PRINT:PRINT:PRINT: INPUT"TEXT" ;ZT$ 

1559 PRINTCHRE(147): IFTASCH" 1" THENGOTO2070 
1570 SU=GE:K=SU:G03UB3250: SUF=X$ :SU=YAL(SLUF) 
1590 PRINT" SSUMMESDNM" ;SUF: PRINT 
1594 GOSUESS4A: PRINT 
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PRO Na OR Su N a SO 


‚I TMINTC 
ex 
u BE u cn 


Paare 
<T 
KTATE 
xr 


REMk=k= See 
REM EYTL.RABATTE & AUFSCHLAEGE 


FRINT"HACHLASS NEIN be _ JEITTER" 
FRIHT" IN = gi JENTSFRECHENTER" 
PRINT" IM nm u SEIFFER DRUECKENB" 


4 PRINT"AUFSCHLAG 13#MWST 358": TO=SU 
a FRINT:PRINT"ABE. + 13% MUST at 
4 PRINT: GOSUESS4E:FRINT 


A GETTHF:IFTN$=""THENGOTO1ESB 


IFTN$="8" THENFOKE329SF, 211: G0T01248 


4 IFTNF="1"THEHPORES2BEI, 211:G0T01798 


IFTN$="Z2" THENFORES2142, 211:60T01750 


a IFTNF="3"THENFÜKES322P, 211: GOT01948 


IFTN£="4" THENFOKESSS09, 211:G0OT01798 


4 PRINTCHRE«C147:G0OT01598 


INPUT" SHACHLASS IN DM: "GL 

8=GL: GOSURSZSE: GL$=RF: GL=VWALCGLFI 

Ta=3U-GL 

GOTOIEE 

INPUT" SHACHLASS IN a: ";PS:FS$=SSTRECP5) 


NL=SU#PS).’100 

S=HL : GOSUBS2S8: NL$=S$ : NHL=YALCNLF) 
Ta=SU-HNL 

IFTH£="1"THENGOTO1SS0 


4 MW=rTO8132 100: KM: GOSUES2IE: MUF=SRF 
3 MU=WALCMAFI: TO=SU+Ml 


IFTNF="3" THENGOTO1SEO 


4 TO=SU-NL+MU 
4 FRINT:PRIHT 
4 PRINT" S5SUMME =EDM";SU$ 


PRIME®. 2000 TER h 
IFTN$="2"THENPRINT" SHACHLASS=SHINM" GL 
IFTN$="1"ORTN$="4"THENFRINT" SNACHLASS=SENM" HL$ 
IFTNE="3"ORTH$="4"THENFRINT" al 3a MWUSTSEDM" :MAF 
PRINT" ee EEE FRFRE . 

IFTN$="8" THENTOF=SUF 

%=T8: GOSLIB3258 : TA$=%$ : TO=WALCTOF) 

PRINT" TOTAL =BIM" ;TOS 

PRINT" es 

RENF=SH=SI=4=4= 4-44 

REM WARENWERT LIND MWST 

WU=T9,71.13:MS=TO-WW 

Azul : GOSLIE32S0: UWS=R 3 


3=MS : GOSUB3F2IE : MS$=X$ 

PRINT 

PRINT" SUARENWERT=E" ; UMS 
PRINT" 313% MWST=E";MS$ 
RETURN 

OPEN1.4:REM NORMALER AUSDRUCK 


OPENG.4,6:REM ZEILENABSTAND 
REMKS#=S=- HH Hecke 
REM UNTERSTREICHEN DES WÜHNORT 
FORLE=1TOLEN(O$) :OX$="#" +0X$: NEXT 
REMK=E=S === Hecke 
REM ANZAHL DER KOPIEN 

FOR Y=1T01 

REMI=#=-I=- 4-4 Ic cH cc 


3 REM AUSDRUCK-BEFEHLE 


PRINT#1,CHR$C12:" "; DHE 
FRINT#1. CHR$<C192;" ";FI$ 


4 PRINT#1,CHR$«C179:" "Su$ 


4. FRINT#1.CHRECISS" "5 SSF:FRINT#1.CHR$CIHS"  ",SB$ 


FRINT#1:FRINT#1 


a PRINT#1." "SNRF:FRINT#1," ",5T$ 
a IFLENCOF>>17THENGOTO2Z2FO 

4 PRINT#L." "SCHRECII:OF 

I GOTOZZI8 

2 FRINT#1." "0% 

a PRINT#L." "SORF 


A FRINT#1.CHR$C1D: TARCZEN:DAF 


ge ETF A NT nenn u 
PRINT#1.CHR$C19 UI 
FRINT#1.CHRETI1 >: U$ 
FREINT#1.CHREC1 >: UI 


4 IFTA$="4"THENGOTOZFSO 


K$="MENGE ARTIKEL - BEZEICHNUNG DM EINZEL DM GESAMT" 
4 KRF="MENGE ARTIKEL -— BEZEICHNUNG DM BRUTTO RAB DM NETTO DM GESAMT" 
"bh L = zzsmm=zeszemsmessemseeszezmssmsezzezmmmmmummzummzmazmmsmezmzmzunummm mem een emmm en 
a IFTR£Z>"N"THENGOTOZ41R 

PRINT#1." ":K$:PRINT#RL," ";L$ 

GOTO2440 

PRINT#1." "IKR$:FRINT#L," L$ 


REM tete 


A REM DRUCKT N-1 FOSITIONEH 


FORI=8TO<CPO-2 

B=(37-LENCA$SCIND? 

IFTA$C#"1"THENGOTO2SSB 

IFTR$<>"N"THENGOTO 2508 

FRINT#1," "SMESCID:" MIRSCIDSEPSCID:" ",G$(I> 

GOTO2568 

C=C23-LENCAFCINND 

IFRBCTS<SIBOTHENRBSCII=" "+RBSCI) 
PRINT#1.D$:;MESCTDSEF:ASCIDSEFSCIISFSERBSCID:" A O"SNESCIIS ISIGHCI) 
IFTR$<L>"1-" THENGOTOESS® 


A GOTO2I6B 


PRINT#1," "SMEFCI>:" "IASCD 
‚NESTI:IFTASCH"1"THENGOTO 2810 


a IFTN$="@"THENGOTOZESO 


FRINT#1.,TAEBCB92; "-------- u 

PRINT#1, TABC&S> "SUMME" ; SU$ 

IFY<}1THENGOTOEEZBO 

IFPSTIBOTHENPS$=" "+PS$ 

IFTNE=" 1 "ORTNF="4"THENPRINT#1, TABCS3> "ABZUEGLICH ";PS$; "="; NL$ 
IFTN$="2" THENFRINT#1, TABESZI"ABZUEGLICH DM";GL$ 
IFTN$="3"ORTN$="4"THENPRINT#1., TABCSSI"+ 13% MWST"; MUS 


sa PFRINT#1,TABCESN, "--- ö 


PRINT#1, TABCGEOH"TOTAL DM";TO$ 


A PRINT#1.TAB(69) "======== 


IFZU$="N"THENGOTO Z7E0 


34 PRINT#1,TABCEZ"TINZZTEE" TI" :PRINT#1 


IFTH$="Z"ORTNF="4"THENGOTO27ZO 


4 PRINT#1. TABC1S> "WW DM" SUN" E 134 MWST DM"SMS$ 

2 FRINT#L," ZAHLBAR REIN NETTO BEI LIEFERUNG! BETRAG ERHALTEN: " 
2734 PRINT#1," ",L$ 

74H FRINT#6,CHR$LZ2) 


3 FRINT#1,CHRECITDG" ":KO$S:VBSI ER" PAF 


red FRINTHL.CHRECIEDS" "‚BE$ 
ri PRINTRL.CHREU1PIS" "SBZF:PRINT#L.CHR$CI?DS" "IER$ 


FEINT#E.CHRECZII 


FE PRINTRLCHRELLDE"  "IHES 


GOTOSC7B 
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12 


zg1d 
2920 
2538 
2844 
2858 
2568 
PEru 
=t216) 
2994 
=388ı 
za 


3394 
4a 


IFZU$="N" THENGOTOZSSE 

PRINT#1, TABLE" II" SETES "TI" SPRINT#1 

IFTA$="2" THENGOTOZSSO:REM L.SCHEI 

PRINT#1:FRINT#1, TAR<{443: "MIT FREUNDLICHEN GRUESSEN" 
PRINT#1: FRINT#1:PRINT#1. TAbt44>; "ERNST FISCHER GMEH &C0 KG" 
PRINT#1:PRINT#1.CHRF$C1I:"  "SHE$ 

GOTO3A7O 

IFTE$="N"THENGOTO2S16 

IF TA$="3" THEN GOTO 2918 
PRINT#1:PRINT#1.TABC44>, "BEREITS BERECHNET UND BEZAHLT !" 
PRINT#1:FRINT#1. " "SLF 


A FRINT#E,CHRFCZE) 
A PRINT#1.CHR$C17IS" ";BEF:PRINT#1.CHREU1 TDG" "BEE 
FRINT#1.CHR$C17 95" "SERF:PRINT#1.CHRF$L1DS"  "SHEF 


PRINT#6.CHR$(242:G0T03970 


2 REN EHE Haie 


PRINT#1:FRINT#1 
PRINT#1." "S;MI&:PRINT#1." ":MZ$:FRINTRL." "ME 
PRINT#1," ":M4E:FRINT#L. " ":MSF:PRINT#1:FRINT#1 
PRINT#1." RECHNUNG YOM "145" UEBER DM ";MD$ 

A PRINT#1," MD DD DD Da DD a Da Ka a aD aD a a DD a Da DK A 
PRINT#1:PFRINT#1:PRINT#1." "SL#:PREINTHE. CHRFIZ22) 
PRINT#1,CHR$(C179;" "SKOSSWBSS KR"; FRAF 

3 PRINT#1.CHREC1T?S" ";ER$ 

a PRINT#6,CHR$C243:FRINT#HL.CHRELIDS"  "SHEF 

4 PRINT#1 

3 NE&TYr 

A CLOSE&:CLOSEI 


A PRINTCHR$«C1473:PRINT:FRINT:PRINT:PRINT:FRINT"ADRESSEN ERFORDERLICH 7 TEN 


FENSI=S = 4-4 = IS ES ces 


a REM SCHALTET NACH EINIGEN SEK. RUF NEUE RECHNUNG 
EI FORW=1TO4BO 

4 GETAIF 

4 IFAD$=" J"THENGOSUBS44B 

A NEST W 

4 PRINTCHREFC147) 


PRINT:PRINT:FRINT:FRINT:PRINT 
INPUT"NEUE ADRESSE (.I1’N) JIBBI" :Si$ 
IF LEFT$CS1$. 122" N"THENT”18 

GOTOS4B 

END 

RENK=I=SI=- = IS 4 SYS IH Hecke 


4 REM AUFRUNDEH DER ZEHNTEL-PFENNIG 


x=INT(X#100+. 55108 

REMk= == Heer 

REM DIM.AUF DM 99999. 99 

T=8:X$=STR$CKH100): IF LENCK$)=T THEN GOTO3310 
FORL=LENCK$I+1 TO T:X$=" "+X$:NEXT 
R$=LEFTSCH$.LENCKSI-2I+"  "+RIGHTSCHS, 2) 
RETURN 


A X=INTCX#100+.5)100 
A T=8:K$=STRECHKLOB): IF LENCK$I=T THEN GOTO 3370 


FORL=LENIR$SI+HLTO T:X$=" "+X$:NEXT 


I RS=LEFTFERF:LENCHFI-23+"  "+RIGHTFCHS. 2 


IF#=INTEH>THEN GOTO 3449 


4 RETURN 
3 REMS==t=cks4=4-kestsicgegekehee 


REM DIM.AUF INTEGER MEHGENANGABE 
NS=LEFTFCHFLENIREI- +" a 


Be 


RER 


418 
BR 
ee 
adde 
2458 
24 
24 el 
24 
4a 
= 
3516 
>28 
3520 
a4 
>55 
568 
Sr 
2988 
>53 
26dE 
Z618 


RETUFH 
RENES=S4 SSH SS 
REM ADRESS-AUFELEBER DRUCKEN 
üFENI.S:OFPENd. 4 

PRINT#4 

FRINT#1.NA#; SPCC4B-LENCNA$> SS NÄF 
FRINT#1.3STF:5PCC40-LENISTEIN:STE 
FRIHT#1. OE:SPCC4B-LENG OF); 0$ 
FRINT#1.08$:SPC<C489-LEHLOSFITSORF 
CLOSE4:CLOSEI 

RETUFH 
FEN$=4=4=- 42-4 = 4 ES SH cc 
REM UMRAHIINNGEN 

FÜR Z=e1T048:FRINTCHREL ZIG: NEST 
RETURN 
REN#=#=S#=-4=- 4-4 ecke 
REM MAHNUNGS-ROUTINE 
FRINTCHRECI4"H:PRINT:PRINT" #44 MAHNUNG Bo@" 
FRINT:FRINT:FRINT:FRINT 

INFUT" SRBECHNUNG “Oma vis$ 
FRINT:PRINT 


set INPUT" SMÄHHEETRAG W";MID$ 


PREINT:PRINT 


4 GOSURSS4E: PRINT 


ot PRINT" 1. MAHHUNG Sie": FRIHNT 


apa Dig 


40 


EurTHuTErnEEI Een N 


Li a hl 


MEEIRENER TR 
a 


[a 


VERRENTEEE 
Ten eoncahon cc 
Pr 


ren PAcıdd 


FRINT" =. MAHNLING Rz": PRINT 

FRINT" 3. MAHHUNG Bam": FRIMT 

GÜSUESS4O 

FRINT:PRINT" SEITTE ENTSFRECHENDE ZIFFER DRUECKEN!E" 
GETTME: IFTME="" THEN3TOO 

IFTM$="1" THENGOTOS3?SE 

IFTME="2" THENGOTOSSZA 

IFTM$=" 3" THENGOTOIEFE 


4 GOTOSS20 


Ut=" MAHNLING" 

Mis="ZIE HABEN ES SICHER LIERERSEHEHN,TDIE UNTENSTEHENDE FORDERUNG" 
Met="ZU BEGLEICHEN. " 

MSF="BITTE NEHMEN SIE DIE ERINNERLHG NICHT UEBEL." 

ndt=" MIT BESTER EMPFEHLLING" 
NSf= nu 

RETUFH 

Ur=" 2. MAHNUNG" 

Mis="I5ST DIE ERSTE ANFRAGE FEZUEGLICH TES FRELLIGEN BETRAGES" 
M2$="NICHT IN IHREN BESITZE GELANGT. ODER IST DER BETRAG" 

M3r="SCHÜN UNTERWEGS?" 

M4$=" MIT BESTER EMPFEHLUNG" 


an MSg="" 
2 RETURN 
a Ug=" LETZTE MAHNLNG" 


Mi$="WISSEN SIE,DASS IHNEN SCHÖN ZWEI MAHNUNGEN ZUGINGEN?" 
Ma$="SIE HABEN GEWISS VERSTAENDNIS DAFUER.DASS JEDER AUF DEN EINGANG" 
Ma3$="SEINER AUSSENSTAENDE ANGEWIESEN 18T." 

M4$="EITTE LEBERMEISEN SIE DEN BETRAG NUN ABER BESTIMMT UND SOFORT!" 
Mäs=" MIT BESTER EMPFEHLUNG" 
RETURN 
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14 


a 
ERNST FISCHER GMIEH CO ro en GETZ. 


5135 heinskbers-unterbruch # Beeren BS55e Hr-däktel HEISE 


u nn Ft En — Pe nr " Pie } — .— —— the) —— —— “—— “ a” 
OL OLE ORION OLD nn 


FIRMA ALBERT SAMPLE 
NICHTSTRASSE 12 
SsSgag MUENCHEN ZZ 


SObEnEmE: (uieAEBERe AimpenETöt AINREEED dmensenalb apymamen uAErmaNE unmntsnde wentneeik MINEEEH Aenssnitin qnsunsuäne 


RECHNUNG 
MENGE ARTIKEL - BEZEICHNUNG DM EINZEL DM GESAMT 
18 AUSGLEICHSGEWICHTEr sannnonnannnnnnunnnn 19.88 198.00 
10 WASSERWARGEN. sau as aa ss 5 0 2 0 8 93 2 a 2 2 2 a a a a a2 a u 3, 35 9; I] 
15 HANDBUECHER. .»a2aa 2 a a 22 a sa ee ns sa a sa a a u u nn a m © 12. 15 132. a 


SUMME 943,50 
ABZUEGLICH 29% 153.36 


TOTAL IM 759.68 


IIMIR BEDANKEN UNS FÜER IHREN AUFTRAG! 


MW DM 672.218 13% MWST DM 57.39 
ZAHLBAR REIN NETTO BEI LIEFERUNG! BETRAG EFHALTERN: 


eine Guten «pa YerE GIEER dUSEn Anle CBFER Gun Cuibe SUR CAMED MAIS UUEE HEUER GEERS det GndND CENED AuLEn GEHEN MEED AREES CE Hanne AnEm GhENe GRENe GENE HAND CAEP BAGS) HEIM AAN» NAME OGUrt GENE EIMID AnneD dhunb GAMES AANE HERE SAND OHEHb SUIE> GEREE AED HEHE DaSSG FREE anin aimm Mani ANNE AED MERE MAkdn AnbiE MEINER METER Meddn mumE GARAM ande AED FENim HANND TARRD AunEn aunen 
Ur dem GEmie AD Gun Cm irn dinmn Guaie CnEEn CHR GENE GUEm EEE WAER GEB OAHEB GUTE GUN EULER CAERE GEDOS (AMER ai Geiz ORAaR GriiD CEMER GAME GARED GAEED GRAN wuiaD Allem AAGEn Guben GER AAgSR Auen MANN WER GUSE> dien AänEs TEENS RENIE GUN CEED ELAD UAMEh AMEE ARE WEL onaat Aukm and) Amin auEEn GHND OWEN) MEER Mus dnnen amiımı auilm HORDE FUTEN MORD manne man 


kanten>>heinsberser volksbank kto 1748%#raostscheckkto koeln 211824-585 

keanstandungsen nur innerhalb $8tasen nach wareremefana. bis zur voel- 

iisen bezahlunsa bleibt die ware unser eisentunm. 

er fuel lunssort und serichtsstand fuer beide teile ist heinskers, 
DEE SEE EEE DEE 


KAR 
Dies 
Anza 
wird 


Karambolage 


AMBOLAGE 
ist ein Billiardähnliches Spiel. Sie geben die erscheinen zwei Ziele und ein Ball. Durch eine 
hi der Spieler und deren Namen ein. Dann geschickte Wahl des Winkels muß jedes Ziel so 


die Anzahl der Stösse pro Spieler und getroffen werden, daß der Ball durch die Mitte 


Durchgang eingegeben. Auf dem ’Billiardtisch ” des Zielobjektes läuft. 


408 GOSUB1888 
418 GOSLIB9Q8A 


4208 GOSLUB1508 

>88 P=P+1: IFP>NPTHENP=1:1=1+1 

518 IFI>NITHEN?SOQ 

328 GOSLIBZ8UA 

538 GOSUB2508 

348 GOSUB3BBA 

550 GOSUB3508 

368 GOSUB4REKA 

sa GOSUB45U 

ro& GOSUBSOOH 

718 GOSLIB5SS08 

728 IFNB>=3THENGOSUREBAR : GOTOSBE 

738 GOSUBESHR 

748 IFCU>=8THENGOSUBEBYB: GOTOSOG 

758 GOTO7O8O 

1086 REMAKE 

1810 R%=8: D4%=0: Ry=8:DyY=0: T%=B: TY=B:AR=0: YU=9:CU=8: I8=0: I7=8:%1=0 
1828 Y1=0:X2=8: Y2=0:A=0:B=9:NB=0:1=0:51=0:52=8:P=2:DIMPs$<C2> : RETURN 
1508 REMIKK 

1518 GOSUBS388: GOSUB8488 : PRINT" KARAMBOLAGE" : PRINT 

1528 INPUT"WIEVIELE SPIELERC1/23";NP 

1536 NP=INTCNP3 : IFNPSLORNFIZTHEN1 520 

1548 IFNP=ITHENINFUT"DEIN HRME"SP$C1I:GOTO1SSEO 

1558 INPUT"NAME VON SPIELER 1";F$«19: INPUT"NAME VON SPIELER 2":P$C2) 
1568 INPUT"MIEVIELE STOESSE ";NI 

1570 N%=39:NY=18:5R=.865 

1590 K=RNDCTI) :XR=NX-2 

1688 YU=NY-2:RETURN 

2000 REMAKE 

2818 GOSUBS8AR: GOSUBS4UB:PRINT"ALLES KLAR ";P$CP>:PRINT: PRINT 
2828 PRINT" SCHMIER DEINEN KOEHN EIN!" :GOSUBSIUR: GÜSUBSSHO 
2838 GOSUBS408 :PRINT:PRINT 

2848 PRINT" VERSUCHMI" IS" VON "NIE" KR STOSS ZU,.";P$CPI: PRINT 
20858 PRINT"WERTUNG: "3P$(C195"-"5815: IFNP=2THENFRINT" "IP$C2),"-",52 
2068 RETURN 

2500 REMKEK 

2518 GOSUBSEBR : A=X : FORK=1TONX: PRINT" 4", : GOSUBS1QB: NEXT: A=L:B=U:C=% 
2528 FORK=1TONY-1: GOSLIBS3BB : NEXT : GOSLUIBS688 : A=U :E=x :C=L 

2538 FORK=1TONY-1:GOSUBS3AB: NEXT: A=X: FORK=1TONAS-1:GOSUBS1AO 

2548 NEXT: PRINT"®@" ; :RETURN 

380a REMKHEK 

3818 K1=INTCRNDCIPHCNHK-33)+1 : VI =INTOERNDCOLIRCNT- 333 +2 

3828 X2=INTERNDOLSHCNR-373+1:72=1INTCERNDOLIRCHY- BD 3 +2 


15 


16 


K=ABSCH1-%2) :Q=ABSCYI-V23: IFKZSANDO<SSTHEN3028 
XB=INTCRNDCIIRCNK-47 3) +2: VB=SINTCRNDCHIKCNV-43 3 +2 
K=CK1-%B> 12+CYV 1 -VB} 12: IFKS4THENSO4E 

K=CXR2-KB) 1a+ VB} 12: IFKZ4THENZO4O 

RETURN 


3 REM 


LX=#1:LY=Y1: GOSUR7OBE :A=OH: B=OH: GOSUPSZOO 

R=L: Bel: C=D: GOSURSIOR: A=0H: B=OH: GOSURSZ20G 
LY=%2:LY=Y2: GOSUBFOQB: A=ÜH: B=0H: GOSUBSZAG 
A=L:B=L:C=D: GOSUBSSOB: A=OH: B=0H: GOSUBSZ08 
LS=AB:LY=YB: GOSUB?998 : A=AS: GOSUBS18B: RETURN 
REMKKH 

GOSUB340A: INPUT"SCHUSSMINKEL (O-36083",G:6G=G%17150 
DX=C0S<63 :DY=SIN(G> : IFSRPITHENDS=DAFSR 


a IFSROITHENDY=DIKSR 


IFABSCOX>I<. SANDABSCDY><. STHENDX=DXK2 : DY=DiVrE2 : GOTO4O4O 


1 RETURN 

3 REM 

I LR=AR:LVY=YR:GOSUBFBRG: NB=8: CUl=@: IH=XB: IV=VE RA=RB+. 49: Rys'rBr. 49 
3 GOSUBSFAG: A=SP: Bel: GOSLBS208: RETURN 


REM 


3 RS=RK+DK:RYSRW+HDY : TR=INTERA3:TI=INTIRYD 
4 R=M:B=N: IFTX>TIXTHENA=SR: GOTO5948 


IFTA<IATHENA=L 
IFTY>ITTHENB=U: GOTOSGSH 
IFTr<SIVYTHENB=D 
GOSUBSZAB: IH=TR: Ir=TYy 


a A=A5:B=L:GOSUBS208 


H=5P: B=L:GOSUBS204 : RETURN 
REIFRE 
IFNB>1THENSS4BO 


a IFISCHZORISPR2+1ORIVYCYZ-1ORTITSTZTHENSSHO 


R=PL: B=L: GOSUBS200 : NB=NB+2 


A IFHB=1ORNB=STHENSSTO 
A IFIS<SK1ORTKPRL+HIORTVY<YVI-1ORIVTDTITHENSSTO 


A=PL: B=L:GOSLIBSZ00 : NB=NB+1 


4 RETURN 
1 REM 


GOSUBS49E : PRINT 


a4 IFNE<SSTHENPRINT"KEINE WERTUNG!" :GOTO6SQ7A 
4 SCc=4-ABSCCU-43:PRINT"DIESER STOSS ZREHLT: "SC: IFF=1THENS1=S1+SC 


IFF=ZTHENSZ=32+SC 
PRINT:PRINT:FRINT "PUNKTE: ";P$C1),"-",51 
IFNP=ZTHENPRINT" ",P$C2),"-",52 


3 FORQ=1T03:GOSUBSIUB : NEXT: RETURN 


REMERK 
IFIS>1ANDISSAÄRTHENSSSO 


ei CU=CU+1:A=BL:GOSUBS108: DA=ISK-1 


IFIY>IANDITSVWUTHENGSSO 
CU=CU+1:A=BL:GOSUBS10G: DV=Dr*-1 
RETURN 


3 REMEEK 


GÜSUESESOG: A=R : FORK=1TOLK :GOSUBS108 : NEXT 


Bei a 

4 REMEE%* 

4 PRINT: PRINT:FRINTTABSIGP: "DAS WAR’S -—- GUTES SPIEL! ":END 
4 REMEK# 

4 REM 

3 PRINTCHR$CRD: : RETURN 

2 REM 

4 PRINTCHR& CA): CHR$ CB); :RETURN 


200 
3310 
3320 
2406 
3410 
SE00 
36510 
5800 
3310 
3906 
3910 
3928 
3aa0 
se18 
3020 
2920 
Sad 
3056 
360 
sar6 
READY. 


RER 


PRINTCHRS$<A) SCHRS$CB); 
PRINTCHR$ CI : RETURN 


REM 


A=13: G0OSUBE1EQ: RETURN 


REM 


GOSURS4UB : A=17: FORK=1T024 :GOSUBS198: NEXT: RETURN 


REMKE% 


R=147:GOSUB81Q8: RETURN 


REM 


FORK=1T02808 : NEXT : RETURN 


REMKKK 
REMKKK 
REM 
REM 
REM 


R=29:1=2157:U=145:D=17 
%=32: 04=215:A$=269:$P=32:BL=9:N=A:PL=43 


REM 
RETURN 


CBM 3001 Serie mit ROM Version 3 
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NOTIZEN 


MAUSE Keine der beiden Mäuse darf den Rand, seine 
Jeder Spieler kann seine Maus in vier Richtungen eigene Spur oder die Spur der anderen Maus 
steuern. Ein kurzer Tastendruck auf A, W, D jemals kreuzen. Also nun viel Spass. Das Pro- 
oder X steuert die linke Maus. Die rechte Maus gramm enthält keinen Ton, also müssen die 
wird über die Tasten 4,8,6 und 2 gesteuert. Spieler das Quiecken der Mäuse selbst machen. 


6& REM DAS QUIEKEN DER MAEUSE MUESSEN 

? REM DIE SPIELER MACHEN. 

28 PRINT"T':PRINT"SPIELREGELN :" 

22 PRINT"MMIEDER SPIELER KANN SEINE MAUS IN" 

&3 PRINT"4 RICHTUNGEN STEUERN. " 

&@4 PRINT"EIN KURZER TASTENDRUCK AUF A,W,D ODER %" 
&5 FRINT"STEUERT DIE LINKE MAUS," 

2& FRINT"TRASTE 4,8,6 UND 2 DIE RECHTE." 

2? PRINT"MMKEINE MAUS DARF DEN RAND,SEINE EIGENE 
23 FRINT"SPUR ODER DIE DER ANDEREN MAUS 

23 FRINT"KREUZEN. IM" 

23 PRINT"MISINDRUÜUECKE TASTE Y FUER VERSTANDEN !" 

22 PRINT"MEINGESPIELT WERDEN & RUNDEN ! 

33 GETYE: IFVSCH"V"GOTO3S 

8 PRINT" 

&5 GOTO1135 

53 REM EINSFRUNG 

69 GOSUF4BGG: REM RAHMEN 

a GOSUB3898: REM TASTE 

Sa IFL$="W"THENLY=LY-1: IFLYSOTHENLY=8 

aa IFL$="D"THENLX=LR+1: IFLX>39THENLX=39 

189 IFL$="A"THENLS=LX-1: IFLASBTHENLX=8 

11a IFLE="X"THENLY=LY+1: IFLY>24THENLY=24 

zu0 PL=32769+LV#48+LX 

265 IFPEEKCPL?<S>IZGOTOLAUEA 

zıa POKEPL.37 

220 GÜSLIBZACB:REM HARTE 

&r& GÜSUB3OC8 

23a IFR$£="8"THENRY/=RY-1: IFRYSOTHENRY=O 

299 IFR$="&"THENRK=RX+1: IFRS>39THENRX=39 

sag IFR$="4"THENRA=RR-1: IFRA<OTHENRK=B 

318 IFR$="2"THENRTSRY+1: IFRYSZ4THENRY=24 

4ag PR=32765+RY#4O+RX 

445 IFPEEK(PFRI<C3ZEGOTO1810 

#18 POKEFR.S1 

426 GOSUB2008: REM HARTE 

3939 GOTO?O 

aaa FORI=1TO1BAR: NEXT :PRINT"T":PRINT" MDDDIEDIDBBEEERRRBBEINKS SITZT FEST " 
1005 ZR=ZR+1:GOTO1108 

119 ZL=Z2L+1 

1212 FORI=1T01888: NEXT: PRINT" 7": PRINT" WINISISISIINISIKRRRBBBBBBBBRECHTS SITZT FEST " 
112 FORI=1T02888: NEXTI: PRINT" MEIMBBEIIDBBBBRBBRBBISPIELSTAND" 
11261 PRINT"IRRREBEBBRRRBRBBI" : :PRIHTZL : :FRIHT":";:FRINTZR:FORI=1T03988 : NEXT 
1130 IFZL+ZR=&8G0TO1148 
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FORI=1T0188:GETP$:NE#T:GOTOSS 
3 PRINT" MSBBBBBBBBBBIDAS WAR SPITZE !" 


FOR I=1T05098: NEXT 


3 FRINT"MBEIN NEUES MATCH BEGINNT MIT TASTE N !" 
GETN$: IFN$="N"THENZL=0 ZR=0:GOT0688 

4 GOTO1178 

a FORI=1T050: NEXT 

3 RETURN 

a GETR$ 

a IFAF<C>"W"GOTO3108 
2 L$=R$: RETURN 

a IFA$S>"A"GOTO3I298 


L$=A$:RETURN 
IFA$C>"X"GOTO3388 


3 L$=A$:RETURN 


IFA$<S>"D"GOTO3488 
L$=A$:RETURN 
IFR$<S>"2"GOT03590 


2 R$=A$: RETURN 


IFA$<>"4"GOT03608 


3 R$=A$: RETURN 


IFA$<C>"8"G0OT03784 
R$=A$ : RETURN 
IFA$<>"6"GOT03898 
R$=A$: RETURN 
RETURN 
5=32768:REM RAHMEN 
PRINT" :v=8 


FORH=8T033: GOSUBSAQB : NEXT :H=39 
FORY=OTO23: GOSUBS008 : NEXT : V=23 
FORH=39TO8STEP-1 :GOSUBSB98 :NEXT :H=@ 
3 FORV=23TOBSTEP-1:GOSUBS898 : NEXT 

: La= 1:1L9=23:REM LINKS POS 
RX=38:Rr=23:REM RECHTS POS 


LE" opgmtg" 
RETURN 
FOKECS+VR40+H) , 102 


2 RETURN 


Musik mit CBM 


Musik mit CBM 


Tonerzeugung mit Ihrem CBM- bzw. PET- 
Computer. 


Das Schieberegister im 6522 VIA-Baustein des 
CBM eignet sich bestens zur Erzeugung von 
Toneffekten und Musik. 


Was Sie zur Erzeugung von Musik brauchen, ist 
ein kleiner NF-Verstärker, den Sie an den CB2- 
Anschluß des User-Ports anschließen können. Sie 
können sich auch einen Musikboxbausatz unter 


Sa DIMLO$SCS):LOFCH)=" BRRKL ICKSHHREE" 


33 LO$SC2)=" BERTOENERKE 

E89 LOFCH)=" HLASERIRER" 

53 LOFC4 =" BEASIRENENKER" 

ra LOÜSCH=" BERGERRUESCHERKE" 
79 SU$="7 


der Bestell-Nr. 444 zu 199,00 DM beim Hof- 
acker Verlag bestellen. Dieses Gerät braucht 
keine eigene Stromversorgung. Es wird vom +5V 
Versorgungsteil für den zweiten Cassetten- 
recorder gespeist. 


Beim Abtippen des Listings brauchen Sie die 
vielen Grafikzeichen in den PRINT-Statements 
nicht alle unbedingt auch einzugeben. Sie 
machen lediglich die Bedienung des Programmes 
komfortabler und eleganter. 


SKHTONSCHAU PRÜGRAMMIERBEISPIELEKKE" 


30 ME$="NEXPERIMENTE MIT VERSCHIEDENEN WERTEN" 


38 GOTO185 


38 FÜKES92464 , 75: POKES?467 , 16: POKESI466 , 15: POKES9467, 8: RETURN 


105 BZ$="IBBBBBRBRRBRRRI" 

109 B3$=" 

116 B$=}" SORTADKDRTADSDSDATNENTNDNTETSTRTNDSDEDEN"" 
120 POKES9I468, 12:G0SUBEAHR 


ı136 PRINTB$"MDRUECKESIM FUER KLICKS MM FÜUER SIRENEN 


14a PRINT " 
14% PRINT" 
159 GETG$: IFG$=""THEN15O 
168 IFG$="1"THENMEO 

ira IFG$="2"THENSGY 

120 IFG$="3"THENGAD 

1938 IFG$="4"THEN?OB 

135 IFG$="5"THENSGB 

137 IFG$="6"THEN?308 

zaa GOTC158 

dad REM 


28 FUER TÜENE 58 FUER ZUFALLSTOENE 
a3 FUER LASER 38 THEORIE 


482 PRINTSW$:PRINT:PRINTB2$; LO$CVAL(G$)) 


483 POKES3468, 14 


485 PRINT"MDIESES UNTERPROGRAMM: M" 


418 PRINT"18088 POKE 59464. Au 
411 PRINT"1018 POKE 593467,16 
412 PRINT"1828 POKE 59466, 15 
413 PRINT"1830 POKE 59467,8 
415 PRINT"1848 RETURN 


420 PRINT"SERZEUGTSKLICKSEN®, WOBEI 


Re <1T02557"; 


425 PRINT"DIE TONHOEHE DES KLICKS BESTIMMT. 


427 A=50:GOSUB10809 
438 PRINTME$; 
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PRINT"FUER MM (2Z.B. 2680 SRETURNE)"; 

GOSUBF18:PRINTBF 

INPUT" Me IBBBBEN" : A$: A=VALCAS) 

IFASIORAP2SSTHENPRINT" MA BITTE 1-255"; :FORN=1T02088 : NEXT: GOT0434 
GOSLIB1008: GOSUBFS5O 

POKES48, 1: IFAF="R" THENASO 

IFA&="N"THEN4S4 

IFR$="M"THENZB 

GOTO458 

REM 

PRINTSW$:FRINT:PRINTB2$; LOFCVAL(G$>? 

POKES9I468,,14 f 

FRINT"MDIESES UNTERPROGRAMM : M 

PRINT"i100 POKES92466.8:POKES9464 , AM: POKESI467, 16 : POKES9I466,, ACH 
PRINT"1116 FOR H=1TONBE: NEXT 

PRINT"1126 POKES9467,8:RETURNM 

PRINT"ERZEUGTSTOENER, WOBEI MAEC1-255 DIE; 

PRINT" TONHOEHE , ABEC1-6&400G> DIE TONDAUER IST UND": 

PRINT" SCHC1-255> BESTIMMT DIE OKTAVE U.DRS TEMPER.M 

R=1498: B=1008:C=15:GOSUB1100 

FRINTME$; 

PRINT"FOR AM, SEE, SU M.Z.B. 1008,1088, 15RETURNE) ." 
GOSUBI1U:FRINTB$ 

INPUT" He, SB, SCH= INBENEENERBR!" ;A$, BB$,C$ 

A=YAL CAS? : B=VALCBB$):C=VALCCH) 

IFA<LORAPZSSTHENPRINT" MIA MUSS 1-255 SEIN"; :FORN=1T02888 : NEXT : GOTO55Q 
IFCLIORCHZSSTHENPRINHT" NACH MUST BE 1-255"; :FORN=1T02888: NEXT: GOTOSS58 
GOSUB1188:GOSUB350 

POKES48, 1: IFA$="R"THENS?O 

IFA£="N"THENSSO 

IFRF="M"THENI28 

GOTLS7O 


A REM LASER 


PRINTSW$: PRINT: PRINTB2$; LOFCVYALCCH)) 

POKES9I468, 14 

PRINT"MDIESES LUNTERPROGRAMM" 

PRINT"1088 POKES9I466 , 8: FOKESI467 , 16: POKES9466, 15:"; 
PRINT"FORN=1TO ADE: FORNN= SHHTO SBBSTEPACH 

PRINT" 1@1@ POKES9464 , NN: NEXT:NEXT 

PRINT"1024 POKESI4657,8: RETURN 

PRINT"NERZEUGTALRSER TOENEE, WOBEI SABC1-255> DIE 
PRINT"ANFANGSTOHHUEHE IST, B=1-255 ENTSPRICHT 

PRINT"DER ENDTÖONHDEHE.C=-255 BIS 255 IST DIE SCHRITTWEITE. 
PRINT"UND anmci1-255> IST DIE ANZAHL DER ZWKLEN.M 
A=34:B=255:C=18:0=15:60SL1B1200 

FRINTME$; 

FRINT"FUER 8, SB, ICH, DE 3C2.B. 20,255, 18, 1SRETURNE) . " 
GOSUBS18: FRINTE$ 

INPUT" ARE, SEN, ICH, SIE IBEEBEBRERER!" ; RS, BB$.C$.D$ 
H=VALCAF) : B=VRALCBB$) : C=VALCC$) : D=VYAL (CDS) 


& IFATIORA>ZSSORB<SLORBIESSTHENGOSURE 92: GOTO6ESQO 
IFC£-2550RC>25STHENPRINT"MACH MUST BE -255, 255", :FORN=1T02088 : NEXT : GOTO658 


GOSLB1208: GOSUBFS5O 
PÜKES48, 1: IFAF="R"THENS7O 
IFR£="N" THENESA 
IFR&="M"THENI12O 

GOTÜSTE 


2 PRINT", SB MUSS 1-255 SEIN"; :FORN=1T02988: NEXT: RETURN 
4 REM STRENEN 


FRINTSW$:PRINT:PRINTB2$; LOFCWRALIGK)) 
POKES9468. 14 


PRIHT"MDIESE UNTERPROGRAMM : M 

PRINT"1G0@ POKES9466, 0: POKES3I467, 16: POKES9I466,, 15: FORN=1TONDE" ; 
PRINT"FORNN=SIETOSEBSSTEP- IH 

PRINT"1018 POKES9484, NN: NEXT : FORNN=SBETOSREBSTEP ICH 

FRINT"1824 POKES9464 , NN: NEXT :NEXT:POKESI4E7,8 

PRINT"183E RETURN 

FRINT"WERZEUGT EINEN SSIRENEH®, TON WOBEISIMABKI-25S>DIE ANFANGS- 
PRINT"TÜNHOEHE IST UND DIE ENDTONHOEHE DURCH 
PRINT"B=(1-25S>RESTIMMT WIRD. C=(1-2555 IST DIE SCHRITTWEITE DER TONHOEHE" 
PRINT"UND abMc1-255> IST DIE ANZAHL DER ZWKLEN 

A=255: B=30:C=2: D=4: GOSUB1300 

PRINTMES; 

PRINT"FÜR AM, SB, SCH. Zum C2.B.255,80, 2, 4RETURNE). " 
GOSLBS18:PRINTRF 

INPUT" SA, ZBM, SCH, SDE-= IENEEEBEBENNI" ;A$. BB$.C$,D$ 
A=YAL(CA$I: B=VALCBEF):C=VALCCH? : D=VRALID$) 
IFRZ1ORAF2S50RB<1ORB>2SSORC< I ORCD2SSORD<LORDIZSSTHENGOSUBESJ2 : GOTO758 
GOSLIE1308 : GOSUIBI5Q 

POKES48. 1: IFAF="R"THEN?7O 

IFA$&="N"THEN?SE 

IFA$="M"THENIZO 

GOTOT7O 

REM RANDOM INFO 


= PRINTSW$:PRINT:PRINTB2$: LOFCVALCG$)) 


POÜKES9I468, 14 

PRINT"MDIESES LINTERPROGRAMM: M 

PRINT" 1096 FORN=1TOADE:!RR=INTCCHBEIHRNDC1 + ME 

FRINT"1818 FOKE9?466, 8: POKES9464 , RR: POKES9467 , 16: POKE5S9466 , 15: FORNN=1TOACH 
PRINT" IAZa NEXT: POKES94567,8:NEXT : RETURN 

PRINT"WERZEUGT SZUFALLSTOENEB, WOBEI MEC1-255) 


2 PRINT"DER HOECHSTE TON IST., MBMi-255>1IST DER BEREICH 


PRINT"DER TONHÜEHEN. ac <1-255>1ST DIE DAUER 


> FRINT"TUND ADC 1-255>IST DIE ANZAHL DER ZYKLEN.M 


=29:E=49:C=2:I=38: G0SUR14AO 


> PRINTMEF: 


PRINT"FOR 8, SEE, ICH, DE 9X2.B.20,48, 2, 30RETURNE). " 
GOSUBS1G:PRINTB$ 
INPUT" SA, EB, ICH, NDE- INNSEBERBRER!" ; AS, BB$.C$.D$ 
A=YAL CAS: B=EVALCBB$I :C=VAL (CH): D=VYALCD$) 
IFEA+BY>>Z5STHENPRINT"MAR+BE MUST BE 1-255"; :FORN=1T02998 : NEXT : GOTO858 
GOSUR 1408: GOSUB9SO 
FPÜKES48, 1: IFA$="R" THEHS7O 
IFA&="N"THENSSO 
IFA£="M"THEN128 
GOTIS?O 
RETLIRN 
REM ERASE 
FORN=1T04498 : NEXT 
PRINTEB$; :FORN=1T04 : PRINTB3$ : NEXT : RETURN 
PRINTB$"MIINSEBE R=WIEDERH N=NEU M-MENU IM"; :POKES48,8 
GETA$: IFA$=""ORVALCASI<CHOTHENSSS 
RETURN 
REM ##CLICKS## SUBROUTINE 
POKES9464 , A: FOKESP467 , 16: POKE59466,, 15: POKE59467 ,8:RETURN 
REM ##TONES## SUBROUTINE 
PORESI4ES 8: FOKES9464 . A: POKES9467 ‚, 16: POKES9466,, C: FORN=1TOB: NEXT 
POKES2467.0: RETURN 
REM ##LASERK* 
POH.ESI456, 8: FOKES9467 , 16: POKES9466, 15 
FORN=1TOD: FORNN=ATOESTEPC : POKES3464 , NN : NEXT : NEXT 
POKES9467,8: RETURN 
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1398 
1310 
1328 
13308 
1340 
14080 
1418 
1320 
1438 
1435 
14481 
2151712) 
5085 
sple 
5028 
ts cl) 
5048 
road 
rosa 
7300 
7303 
7305 
7307 
rsıio 
r324 
7336 
7335 
rast 
1335 
7333 
73304 
r35e 
7360 
rsrı 
r3sA 
r398 
READT 


REM ##SIRENX# 

POKES3466, 8: POKES3467 , 16: :POKES93466, 15 

FORN=1TOD: FORNN=ATOBSTEP-C: POKES9464 , NN:NEXT 

FORNN=BTORSTEFC: FOKES9464, NN NEXT: NEXT 

PORESI467, 8: RETURN 

REM *#ERNDOM SUBROUTINE#%* 

FORN=1TOD 
RR=INTECBIARHNDELI+AD 

POKESI466,, 8: POKES9464 , RR : POKES9467 , 16: POKES9466., 15 

FORHN=1TOC: NEXT :POKES9467, 8: NEXT 

RETURN 

REM LOGO 

PRINT" ERZEUGEN VON TÜENEN " 

PRINT"RM PORT MUSS EIN SCHALTKREIS ZUR" 

PRINT"MUSIKBOX ETC. 

PRINT"ANGESCHLOSSEN WERDEN" 

GOSUB 98 

REM 

RETURN 

PRINT" 3E TONERZEUGUNGS-THEORIE F.CBM ck" 
=50: GOSLUIB1H08 

PRINT"MIB-2 IST EIN & BIT SCHIEBEREGISTER UND" 
PRINT"KANN YOH BASIC VEBER POKE PROGRAMMIERT" 
PRINT"WERDENNMSPOKES2464 , NECN=1-2553BEST.DIE SCHIEBEREGISTERFREQUENZ" 

PRINT" WPOKESF467,16@ BRINGT CBZ ZUM LEERLAUF M 

PRINT" POKESF466, 158 BESTIMMT DIE CBZ KURVYE" 


FRINT" 15= 84081111 IN EINRER 
PRINT" UND 15= L__1777 KURVENFORM 
PRINT" Si= E8118G011 IN EBINRER 
PRINT" UND S1= LITL_TT KURWENFORM 


PRINT" SPOKESF467.0M =CEZ2 AUS 

PRINT"MMEI II 1% CBZ2 MUSS AUSGESCHALTET SEIN" 

PRINT" BEVOR DER CASSETTENRECORDER VERWENDET WERDEN SOLL. 
PRINT"BMINGEBEN SIESRETURNE UM INS MENUE ZU GEHEN" 

GETG$: IFG$=""THEN?3SO 

GOTÜ128 


Bildschirmausdruck 


Bildschirmausdruck 


Dieses Unterprogramm druckt Buchstaben und 
Zahlen auf dem Bildschirm auf dem Drucker 
aus. 


Lan ar EH" ie RE ALFERI' OPEN 

„gala FÜR Nx=a TO: 

„ag NS SPEEKKBSTERTNVRAENR) 

„3223 NSF=ÜHRECNSN 

„24a IF Hei ANDI HST32 THEN NS$=CHR#( 
Hor+rbı. 

ag52 IF NSP6ES AND MS£36 THEN NS$=CHREC 
Motse. 

„age PRINT#4. NS#: 

Sue HERT N® 

ua FRINT#4:FOR Ny=a TO S:FRINT#4, CHR 
FUN: CNERST NW:NEHT Nr 
READY. 
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NOTIZEN 


Super Drei 
Super Drei ist ein Denk-Spiel bei dem Sie die ausführlich im 1. Programm des Programm- 
Kästchen in einer ganz bestimmten Reihen- systems, welches insgesamt aus 2 Teilen besteht, 
folge anordnen müssen. Die Spielregeln sind enthalten. 

230 GOSUB1378 

248 PRINT" IM ai. DAS SPIELFELD" 

250 lu Sr IeLEELD BESTEHT AUS 9 KRESTCHEN" 

26 PRINT"MIT JE 9 POSITIONEN. ' 

2?@ PRINT"DIE ZAHL JEDES ORESTCHENS STEHT IN" 


Super Drei 


PRINT"REVERSER SCHREIBWEISE IN DER MITTE DES" 
PRINT"JEWEILIGEN KAESTCHEN, DIE YON 3-11 NUMMERIERT SIND. " 
PRINT"DIE POSITIONEN JEDES KAESTCHENS SIND 
PRINT"EBENFALLS YON 3 BIS 11 NUMMERIERT. 

PRINT"SIE SIND INNERHALB DES KRESTCHENS" 
FRINT"FORTLAUFEND HUMMERITERT, MIT AUSNAHME DER" 
PRINT"TMITTELFOSITIOHM, DIE DIE ZAHL DES" 
PRINT"KAESTCHENS IN REVERSER SCHREIBWEISE ENTHRELT." 
GOSUB1349: GOSUB1379 

PRIMT" MONIIM a2. ZIEL DES SPIELES" 

PRINT"MSZIEL DES SPIELES IST ES. ENTWEDER DREI " 
PRINT"KRAESTCHEN IN EINER REIHE, EGAL OB " 
PRINT"WARGERECHT, SENKRECHT ODER DIAGONAL . " 

PRINT"ÜODER FUENF BELIEBIGE KRESTCHEN ZU GEWINNEN. " 
FRIHT"DIE KAESTCHEN WERDEN EBENFALLS ENTWEDER" 
FRINT"DURCH BESETZEN VON DREI POSITIONEN IN" 

PRINT"EINER REIHE - WARGERECHT, SENKRECHT ODER" 
FRINT"TDIAGONAL - ODER VON FUENF BELIEBIGEN" 
PRINT"POSITIONEN INNERHALB EINES KRESTCHENS GEWONNEN. " 
GOSLIB1.348 : G0OSUIB1378 

PRINT" Mm 3. SPIELREGELN" 

PRINT"MMDIE BEIDEN SPIELER LEGEN FEST. WER" 
PRINT"SPIELER 1 <IHM GEHOERT WREHREND DES" 

PRINT"SPIELS DAS ZEICHEN ®> UND WER SPIELER 2 «MIT DEM ZEICHEN 
PRINT"NACHDEM DER COMPUTER GEWUERFEL HAT," 

PRINT"ADDIERT DER SFIELER DIE BEIDEN AUGEN -" 
PRINT"ZAHLEN UND DARF NUN EINE BELIEBIGE" 

PRINHT"POSITION MIT DIESER ZAHL IRGENDWO AUF" 

PRINT"DEM SPIELFELD ODER EINE BELIEBIGE" 

PRINT"POSITION IN DEM KRESTCHEN MIT DIESER" 

PRINT"ZAHL, MIT AUSNAHME DER MITTELPOSITION, " 
PRINT"BESETZEN. " 

GOSUB1 346: G0O5SUB1370 

PRINT"MEUNBEI EINEM WURF MIT EINER 4 LIND EINER 6&" 
PRINT"ZUM BEISPIEL. ALSO EINER 168. DARF JETZT" 
PRINT"EINE BELIEBIGE 18-ER POSITION <(JEDES" 
PRINT"KRESTCHEN HAT EINE DAYON> ODER EINE" 
PRINT"BELIEBIGE POSITION IM KAESTCHEN MIT DER" 
PRINT"NUMMER 18 BELEGT WERDEN. MIT AUSNAHME" 

PRINT"DER MITTELPOSITION." 

PRINT"MDIE EINGABE ERFOLGT IN FOLGENDER FORM:" 


IST. 
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PRINT"ZUERST DIE NUMMER DES KRAESTCHEN. DAHN" 
PRINT"EIN KOMMA UND DANN DIE FOSITIONSNUMMER" 
PRINT" INNERHALB DES GEWREHLTEN KRESTCHENS. " 
PRINT"WENN SIE ALSO ZUM BEISPIEL FOSITION 12" 
PRINT"IN KRESTCHEN HUMMER 3 BELEGEN MOLLEN. 50" 


PRINT"TGEBEN SIE EIN: 3,18 UND IRUECKEN DIE RETURN-TASTE. 


GOSUB1348: GOSUB1378 
PRINT" MM 4. SPEZIALHUERFE" 
PRINT"SA>) WUERFE MIT 12" 
PRINT"IWEHN ZWEI SECHSER (ALSO 12 AUGEN>" 
PRINT"GEWUERFELT WERDEN. DAFF EINE BELIEBIGE" 
PRINT"POSITION AUF DEM SPIELFELT BESETET" 
FPRINT"WERDEN, EINSCHLIESSLICH EINER BELIERIGEN" 
FRINT"TMITTELFOSITION." 
PRINT"ME> WUERFE MIT 7" 
PRINT"WENH DIE AUGEH DER BEIDEN WURFEL 7" 
PRINT"ERGEGEN. DARF EINE BELIEEIGE MITTEL -" 
PRINT"POSITION ODER EINE BELIERIGE FOSITION" 
PRINT"IM SIEBENER-KRESTCHEN BELEGT WERDEN. " 
GOSLIB1340 : GOSUB1378 
PRINT" MAIN) WHUERFE MIT 2" 
PRINT"IWENN Z EINSER GEWUERFELT WERDEN, DARF" 
PRINT"EINE BELIEBIGE. VÜM GEGNER BESETZTE" 
PRINT"POSITIOH IN EINEM FELIERIGEN KRESTCHEH" 
PRINT"- MIT AUSNAHME EINES YOLLSTAENDIGEN -" 
PRINT"GELOESCHT WERDEN. DER SPIELER DARF NOCH" 
PRINT"EINMAL WURFELN UND DARF EINE FOSITIOM" 
PRINT"IN EINEM DEM WURF ENTSPRECHENDEM" 
PRINT"KAESTCHEN BELEGEN. " 
GOSUB1348 : GOSLIB137O 
PRINT" MISIIm =. FORTSETZUNG DES SFIELS" 
PRINT"MMDAS SPIEL GEHT WEITER, INDEM BEIDE " 
PRINT"SPIELER WERSUCHEN, KAESTCHEN DURCH DAS" 
PRINT"BESETZEN YON 3 POSITIONEN IN EINER REIHE" 
PRINT"’+ WARGERECHT, SENKRECHT ODER DIAGORANAL -" 
PRINT"TYDER DURCH BESETZEN YON 5 POSITIONEN" 
PRINT" INNERHALB EINES KRESTIEHEN ZU GEWINNEM. " 
GOSUB1348 : GOSUB1378 
PRINT"MIIRIINWENN BEI EINEM WURF EINE ZAHL NICHT" 
PRINT"EINGESETZT WERDEN KANN SALLE FÜSITIONEN" 
PRINT"MIT DIESER ZAHL SIND BESETZT}, WURFELT" 
PRINT"DER COMPUTER SOFORT EIN ZWEITES UND" 
PRINT"EVENTUELL EIN DRITTES MAL <ZU ERKENNEN" 
PRINT"AN DEN WUERFELN, DIE DANN LRENGER ALS" 
PRINT"NORMAL LEER BLEIEFEN). WENN AUCH NACH DEM" 
PRINT"TDRITTEN WURF KEINE POSITION BELEGT" 
PRINT"WERDEN KANN, IST DER DURCHGANG BEENDET" 
PRINT"UNI DER NRECHSTE SPIELER IST AN DER " 
PRINT"REIHE." 
GOSUB1 340: GOSUB137 
PRINT " MISIeIM 3%. GEWINNER DES SPIELES" 
PRINT"MMDER ERSTE SPIELER. DER DREI KOMPLETTE" 
PRINT"KRESTCHEN IN EINER WARGERECHTEN. SENK -" 
PRINT"RECHTEN ODER DIAGONALEN REIHE ODER 5" 
PRINT"BELIEBIGE KAESTCHEN GEWÖONNNEN HAT. IST" 
PRINT"DER GEWINNER DES SPIELS." 
PRINT"MIBWÖOLLEN SIE DIE SPIELREGELN NOCH EINMAL" 
PRINT"LESEN"; 
INFUTB$: IFLEFT$CB$, 13=" I" THENZSO 
IFLEFT$CHB$, 1X" N"THEN1278 
GOSUB1370 


138@ PRINT"MEIDANN LADEN SIE BITTE JETZT DEN ZUEITEN" 
1318 PRINT"TEIL DES FROGRAMMES" 
1328 LORD 
1330 END 
1348 PRINT" SORDSTRTEDSTRTEDADKTEKTRTRKTISIN TEN Tec Te Do De Be ee DD Be a DE BI ÖRETLIRHI> >" 
Pe GETA$: IFA$S>CHR$SCISYTHENI13SA 
1266 PRINT"TT":RETURN 


1378 PRINT" III a 
1388 PRINT" So  SLPER DREI ee A 
R R Er PRINT" BOOTE ":RETURN 
EADT. 


SUPER DREIZ 
READY. 
18 DIMTAC12, 112: A=INTCRNDS2P#2+13 


sa PRINT'"IE3D 42 5) = 43 (I ICH (4 (Di u: 


4a PRINT"I | u, 

sa PRINT'ICS) SW) 8) Kb) cu (5 IE Ci CC u: 
68 PRINT"I | ) am; 

78 PRINT"BEMICIOIKCIL> ICAHc1aHc11> IKK 1OIC 11 u, 

8a PRINT TE — —— ze; 

3a PRINT"ECH 4) (53 ICH Kdı Hr ICH CH (DD u; 

188 FRINT"I | | um"; 

118 FRINT"IKCE) CE) (8) Ic) (WE i5 IK CE (8) n 
128 PRINT"I | | 1 

138 PRINT"BCSYK1O> 112 ICMC1EdcC11> ICAKC1B>KC11> am; 

190 PRINT 

158 PRINT"RC3> (4) «DD 16323 4) CD . 4) CH Me; 

168 PRINT"I I am"; 

178 PRINT"RKCEI COM) = IKE> KL AO) @ KErcHIE) (5) u: 
188 PRINT"I rn 


198 PRINT"ICI>C1BOIC11) EEE se us". 
208 PRINT" EEE 5 


23a PRINT" | ıı I" 

248 PRINT" | I ke 

250 PRINT" I I | " 
260. PRINT" m mh! 

278 PRINT"TITBM": 

288 %=INTCRNDC1IKE+13:Y=INTERNDC1IKE+12 : Ze +8: IFZ=ZTHEN1SZO 
2368 FORR=3TO11:IFTASZ,RP=BTHENM=8:GOTO34E 

300 HEXT 

318 FORR=3TO11:IFTA ER, ZI=ÖTHENNM=B: GOTO348 

328 NEXT :M=M+1: IFM=3THENI210 

338 GOT0218 

348 ONXGOTO3S8, 360, 378,388, 330,400 

358 PRINT" IRTIBBRI": :GOTO418 

368 PRINT" #MMEKTIRBI"; :GOTO41O 

378 FRINT'IBBEREBPERERBRBLT BBBN" ; :GOTO410 

388 PRINT" AREHSEBBNAKTTIBBI : : GOTO410 

398 PRINT" XIBENERBERBEEHKTIBBN ; :GOTO410 

408 PRINT" K#EANEEEEBEFHTTIBRI" ; 

410 B=B+i1: IFB=2THENE=08: G0T0438 

420 ONYGOTO3SB, 366, 378,358, 330,404 

438 PRINTTABC13>"AN DER REIHE IST SSPIELER";A 


448 INPUT"TIBBRBBBRBBERBI IBBNEREN:; 1,7 

458 IFZ=2THEN1278 

468 IFZ=7THENA498 

478 IFZ=12THENSE8 

488 IFJ=7THENI1268 

438 IFI<>ZANDI<S>ZTHEN1268 

580 IFI<C3ORI{STHENI268 

S1@ IFI>11ORJ>11THENI1260 

528 IFTRCI. JI<>ATHENIZER 

538 PRINT" AIBBI" ; :ONI-26C0TÜS40. 670, 658, 698, ran. Pla. zo, Y2a, dd 
548 ONJ-260T0648, 558,568, 574. 750.598. 390. 600.610 
558 PRINTSPC(4>; :GOTOS4E 

s68 PRINTSPC(S?;:GOTOS4E 

578 PRINT"MM" ;:GOTO648 

388 PRINT" MA" ;SPCC3:::G0TÜE4A 

5938 PRINT" MEN": :GOTO64E 

808 PRINT" MEN"; SFCC3); :G0T0620 

618 PRINT" MEAN" ;SFCC7>: 

828 IFR=1THENPRINT"8":G0OTOSEO 

638 PRINT" WR" : GOTÜEEO 

648 IFA=1THENFRINT"&":GOTO6SO 

650 PRINT" 

668 TACI, T>=A+r4:60T0798 

678 PRIHTSPC(132: :G0TN540 

688 PRINTSPC (26); :GOTOS48 

630 PRINT" MEINER" ; : GOTOS48 

r88 PRINT" MAKER"; SFCC13>::GOTOS4a 

718 PRINT" AKIM" ; SFC 267; :60T0540 

728 PRINT" MRIEDETEDOEN" ; : GOTOS4E 

738 PRINT" MEININIIRISIRISISIE" ; SFC 1335:GOTOS40 

r48 PRINT "MONDRDIMIEDITEN" SPC 2655, GOTOS4E 

758 PRINT" MEBBI" ; : IFI-OANDA=ITHENFRINT "EEE" GOTOSEE 
768 IFI>3THENPRINT" Wi" :GOTOSSE 

778 IFR=1THENPRINT"IRE" :GOTOGEN 

r88 PRINT": GOTO668 

798 FORR=3TO11:IFTACI,RI=STHENL=L+i 

388 NEXT: IFL=STHENL=B: GOTOF4G 

818 L=9: FORR=3TO11: IFTALI.RO=ETHENL=L+1 

320 NEXT: IFL=STHENL=B: GOTO34E 

530 L=8:C=3 

8348 FORFE=CTOC+H2:O=0+TACI, FR :NEXT:GOSUBF1O 

858 C=C+3:1IF C=12 THENC=2:6G0T0379 

368 GOTOS48 

878 C=C+1:IF C=6THENS?G 

886 FORR=CTOC+ESTEP3:Ü=O+TACI,R> NEXT: GOSUBS1E: GOTOSTE 
898 FORR=STOI1STEF4 : Q=Q+THCT,R>3 NEXT :GOSUBS10 
988 FORR=STOISTEPZ: O=SÜ+TACT. RI: NEST :GOSUEF18:G0OTO1Z1E 
22 Ne 


ı 936 RETURN 
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948 PRINT"; 

358 ONI-2G0T01048, 260,274, 950.938, 1004, 1018. 1020. 18930 
368 PRINTSPCC133;:60T01A40 

978 PRINTSPC(26>; :G0TO1C48 

388 PRINT" MD" ; :GOTD1A48 

396 PRINT" Im" ; SPCC13>; :GOT01840 

1888 PRINT "MAaIKia" ; SPCC26) ; :GUTC1A48 

1818 PRINT" WIDDRIRISTRIIKDSEIE" ; : GCTO1EI4EN 

1828 PRINT" MIRDSIKIRINIRTRTKTKIRIN" ; SPC 132: :GOTO1LE4A 
1938 PRINT" KINSIISISIKIRTRISINIG" ; SPC CSE>; 

1948 IFA=ZTHENIAOFE 


FORR=1T05 
TA<I.23=5 
FORR=1T0S 
TRCI.2I=6 


:FORY=1TD12: PRIHT"®&" 5: HEXTY:PRINT'IONEEBRUERBRIN" ; :NE=TR 
:FORR=3TOIL: TAC I, R3=R+d4: NEHT:GOTO111EO 

:FORY=1TO12:PRINT"%"; :NEXTY:PEINT'MERSBBBBRBRNBIEM" ; :NEÄTR 
:FORR=3TO11: TACT. Rr=A+4:NERT:FÜRFE=STOLL:IFTAER, 2>=6THENO=SO+1 


NE=T: IFO=STHEN1638 
GOTO1138 


FORR=3TO11: IFTACR, Z23=STHENO=Q+1 


NEXT: IFO=STHEN1590 


Q=3:V=8 


FORR=OTOG+Z2: Y=W+TACR. 23: NEXT :GOSUE12408 
G=Q+3: IFQ=12THENÜ=2:GOT0117B 


GOTO1148 
Q=Q+1: IFQ=STHEN1190 


FORR=QTOO+6STEP3: Y=Y+TACR, 23: NEXT :GOSUB124:G507T01170 
FOÜRR=3TOL1STEP4 :V=V+TACR. 23: NEHT:GOSUF1240 
FOÖRR=STOSSTEPZ: V=V+TAIR.23: NEST :GOSUFLZ4N 


IFZ=ZTHENZ218 


A R=A+1: IFA=3THENA=1 


PRINT"’TT':GOTO210 
IFV=150RVY=1STHENI169A 
v=4: RETURN 


A PRINTSPCC13>"REGELVERSTOSSIERENEBENBERNITTTT : G50TO430 
IFIC3ORJIZIOR IP 1ORTPILTHENIZEO 


IFTACT,Z>P<>OTHENI 260 
IFTAC I, D=BOTHENI1268 


IFA=1ANDTAGT, JP=STHENI SEO 
IFA=2ANDTACI. TI=6THENI 268 


PRINT" ABBI"; 


ONI-2G0T01348, 1438, 1448, 1458, 1460. 14778, 1490, 1430, 1500 
ONJ-2GOT01358, 1368. 1370. 1390, 1590,1378, 14a, 1418. 1420 
4 PRINT"3"::G0T01510 
PRINTSPCC4)"4",:G0T01510 
PRINTSPC<(83 "5", :G0T01518 


PRINT" 


PRINT" MM" ,SPCCS2"3"5:G0OT01518 


5",:GOT01518 


PRINT" Mm" ;:G0T01510 


PRINT" NRIEBBILO"; :GOTO1S10 
PRINT" MARIN" ;SPCC7>"11"5:G0T01510 


PRINTSPC(132;:GOTO1340 
PRINTSPC\ 26); :GOTO1344 
PRINT" Min" ; :GOTO1348 


PRINT" Manag" ; SPCC132;5 :GOTO1344 
PRINT" IMS" ; SPC.(C26> ;:G0TO1348 

PRINT " MISDHRISISIRTATATSIETEU" ; : GE'TC1 340 

PRINT " SURDRDNINDAINDSTRTKERDN" ; SPC 1355 :G0T01340 
PRINT" MONRDRDSTRISISDSTEDEN" ; SPC 5 :GOT01348 


T%a<1, J3=8:60T0210 
IFA=1THEND=6:GOT0O1548 


D=5 
FORR=3TOL1:FORVY=3TO11: IFTACR, 23 =S0RTACR. 23=6THEN1570 
IFTAER, VI=DTHENM=B: GOTO344 


NEST 
NEXTR : M=M+1: IFM=3THEN1210 


GOTO218 


PRINT" MBBI" ; :OHNI-2GOT01688, 1610, 1620, 1620, 1648, 1650, 1650, 167, 1654 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


5)"; : 
um)"; 
Be"; 
(BB; 
car)"; 
(u, 


GOTO1S1E 


:GOTO1S10 
:GOT01518 
:GOT01510 
:GOTO1S1E 
:GOT01518 
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PRINT" (9) ",:G0T01518 
PRINT" < 108)"; :G0T01518 
PRINT" <(311@)"::G0T01518 
PRINT" SM 
Br HAT SPIELER"; A; "GEWONNEN 


PRINT"HERZLICHEN GLUIECKWUNSCH ! u 
PRINT" 
GOT01748 


KARUSELL 


Karusell ist ein Strategiespiel für zwei Personen. 
Jeder Spieler erhält eine Hälfte des Spielfeldes 
mit 12 Feldern. Sieger ist, wer seine 12 Felder 
zuerst besetzt hat. 


Beim Besetzen der Felder gilt folgende Regel. 
Nachdem gewürfelt wurde, sucht sich der Spieler 
eine der numerierten Positionen aus, von der aus 


REM 

REM 

REM #k%* VORBEREITUNGEN 

REM 

B=32768 :REM #%# ANFANGSADRESSE 


GOSUB 9888:REM ek FELD 

GOSUB 7U88:REM Fk KOPF 

GOSUB 18988:REM #%*%* SPIELREGELN 
GOSUB 1GG8:REM #%*%* SPIELFELD 
REM #%% 

REM #%*%%* SPIELER A FRENGT AN 

REM 6% 

A=INTCRNDS1#2+12 

REM 


REM 

REM X 

REM *%*%* HAUPTPRÜGRAMMM 

REM 3% 

REM 

REM 

GOSUB 11888:REM #%*#* WUERFELN 

GOSUB  SBG:REM Kikk EINGABE 

er 2a00:REM *#%* ZUG AUSFÜEHREN 
REM 

IF Fi=1 THEN Fi=9:60T0 Soa0: REM 

REM 

A=A+1:IF A=3 THEN A=1:REM 

REM 

GOTO 300:REM #%%k ZURUECK ZUM ANFANG 
REM %*% 

REM ** ZAHL HOLEN UND AUSWERTEN 
REM *% 

PRINT" SERINIRDIEINSSPIELER" AR" 
GET £$. 

IF Z$="" THEN 548 

Z=VAL(CZE) 

IF Z<1 OR Z38 THEN 548: REM 

REM *##% FEHLERMELDUNG LÜESCHEN ##% 
IFF=1THENF=8: PRINT: PRINT" 


. 


sm"; 


dann sein Zug ausgeführt wird (Diese Position 
muss aber in seiner Hälfte liegen.). 


Von der gewählten Position aus werden dann 
in Pfeilrichtung und von aussen nach innen so 
viele Felder belegt, wie Augen gewürfelt wurden. 
Aber Vorsicht. Sind alle Felder einer Position 
belegt, so werden sie beim nächsten Zug alle 
wieder geleert . Nun viel Spass. 


DES BILDSCHIRM 
INITIALISIEREN 


ZEICHHEN 


ERWUENSCHT ? 


ZEICHNEN 


*%%* NOCH EIN SPIEL 7? K%% 
*%% NRECHSTER SPIELER 


Wk FALSCHE EINGABE 6 
"PRINT"! 


":PRINT" 
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PRINT Z$:IF cA=1 AND 2<£5> OR <fA=2 AND Z 
REM #*# FALSCHE SPIELFELDHRELFTE %% 
PRINT" SURDSIHITKIENISDSSIE DUERFEN NUR" 
PRINT"TAUF IHRER SEITE" 
PRINT"BEGINNEN 1!" 
F=1:REM %%#%* FEHLERFLAG SETZEN ##% 
GOTOSS8:REM ##%* NEUE EINGABE #%% 

REM 4% 

REM #** SPIELFELD ZEICHNEN 

REM 3% 
PRINT"Z"TAB<C12>"4 
PRINTTAB<C 13)" 
PRINTTAB<192>"37 
PRINTTAB« 13>" 27 
PRINTSPCCIP "7 
PRINTTAB<(13>") 
PRINTTABC 19>" 277 
PRINTTAB{ 19". 
PRINTTABC IS" TI 1 
PRINTSPECISI "TI 0 
PRINTSPCC1OH" 7 
PRINTSFC{ II" I 
PRINTTABE 133 "7 I 
PRINTTAB< III" II VW 
PRINTTAB{ 123" 7) 
PRINTTAB<13:"X7,-0 
PRINTTABE AP" 118531 
PRINTTAB< 19: "TI — 
PRINTTARELIP "7 
PRINTTAB<19) "7 
PRINTTAB{ 193" 
PRINTTAB<{ 193" Bu x 
PRINTTAB{1F>" 7) 

PRINTTAB<13>" 7 BSPIELER & 

FOR I=B+9372 TO B+299:POKEI, 224: "NEXT I: 
RETURN 

REM 3% 

REM **%* ZUG RUSFUEHREN 

ie x% 

I= 

IF PEEK(B+R#<CI.13>=215 THEN POKE B+AAC 
IF FPEEKCB+AACI.23>=215 THEN POKE B+Aac 
IF PEEK(E+A%<CI.S2>=215 THEN POKE B+AAC 
FOR K=1 TO 3:FOKE B+AZCI.K3,Z15:NEXT K 
IF I=3 THEN I=4@ 


BSPIELER 14 


mal +— Imal 
ı__ u 
[1%] [W] 
N 
im 
ge 


Ü 


2) 


3 GÜOSUB 3860:REM Wk AUF EINEN 


IF Fi=1 THEN Z130:REM #6 SIEG #6%* 
I=I+1:Y=Y+1:IF <> THEN 2040: REM 
Y=8:REM ##% ZUG AUSGEFUERT #%# 
RETURN 

REM #%% 

REM **# TEST-ROUTINE 

REM 6% 

FOR L=1 TO 4:REM #%% OBERE 

FOR M=1 TO 3:REM ##%* SPIELHRELFTE 
IF PEEK<E+AACL.M3I=203 THEN Wi=Wirl 
NEXT M,L 

FOR L=5 TO 8:FEM #%*%* UNTERE 

FOR M=1 TO 3:REM %*%## SPFIELHRELFTE 
IF PEEK<CB+A#CL.,M>2=2893 THEN Ne=W2+Hl 


A NEXT M,L 


>4> THEN RETURN 


a 


rn 


REM *%# LETZE ZEILE FOREN ! 3% 


1[,13,209:G0T0 2088 
1,2),283:60T0 2088 
1.23,293:G0T0 20590 
**# SIEG TESTEN 


*## NRECHSTES FELD BESETZEN 6% 


3 REM #%# ZAEHLER AUSWERTEN #4 


IF Wi=12 THEN A=1:60T0 4008 
IF W2=12 THEN A=2:G0T0 4006 


4 Wi=O:REM K# ZAEHLER FUER DIE 
3 W2=B:REM #%*%* BESETZTEHN FELDER 


RETURN 

REM #%% 

REM #*# EIN SPIELER HAT GEWÜNNEN 
REM #%% 

PRINT" MDRMIT HAT" 
FRINT"SPIELER"A"GEMOHNNEN" 


sa REM ### NEUEN SPIELSTAHD ANZEIGEN 


IF Wi=12 THEN 51=51+1:G60T0 4990 
IF W2=12 THEHN 52=$2+1 
3 PRINT"MIHEUER SPIELSTAND: " 
FRINT" "si" : "52 
A W1=8 
W2=8 
Y=6 
Fi=1:REM *#* SIEG-FLAG SETZEN ##%# 
4 RETURN 
REM *#% 
REM %#%# SPIELSCHLUSS 
A REM 88% 
3 PRINT"MMNSHÜCH EIN SPIEL 7" 


GET A$: IF Af="" THEN 5048 
IF A$="J]" THEN 188 
IF A$<>"H" THEN 54a 


a GOSUB ?OBR:REM # KOFF ZEICHNEN % 


PRINT"SCHADE... " 

PRINT"MEIS ZUM NAECHSTEN MAL..." 

END 

REM 6% 

FEM *#%* SPIELREGELH 

REM 8% 

GOSUB YOUR:REM Kk KOPF ZEICHNEN *%* 
PRINT"KARUSSELL IST EIN STRATEGIESPIEL FÜUER" 
PRINT"ZWEI FERSÜNEN." 

PRINT 

FRINT" JEDER SPIELER ERHRELT EINE HAELFTE DES" 
PRINT"SPIELFELDES MIT 12 FELDERN, SIEGER 15T," 
en SEINE 12 FELDER ZUERST BESETZT HAT." 
PRIN 

PRINT"BEIM BESETZEN DER FELDER GILT FÜLGENDE" 
PRINT"REGEL : " 

PRINT"NACHDEM GEWUERFELT WURDE, SUCHT SICH DER" 
PRINT"TBPIELER EINE DER NUMMERIEFTEN POSITIONEN" 
PRINT"RAUS, VON DEF AUS DIAHN SEIN ZUG" 
PRINT"AUSGEFLIEHRT WIRD DIESE FOSITION MUSS" 
FRINT"ABER IN SEINER HRELFTE LIEGEN !2." 


c GOSUB SaBG:REM # SEITE UMELRETTERH 


GOSUR TRBA:REM # KÜFF ZEICHNEN 


a PRINT"YOH DER GEWREHLTEN FOSITIOM AUS WERDEN" 


PRINT"DANN IH PFEILRICHTUNG IND Yon AUSSEN" 
PRINT"NACH IHNEN 50 VIELE FELDER FELEGT, WIE" 


5 En DEN GEMUERFELT WURDEN. " 
FRIN 
PRINT"ABER VORSICHT ! SIND ALLE FELDER EINER" 
PRINT"FOSITION BELEGT. 50 WERDEH SIE BEIM" 


PRINT"NAECHSTEH ZUG ALLE WIEDER GELEERT..." 
PRINT" MEIMIRLIND HUN WIEL SPASS 11" 
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GOSUB SOGB:REM * SEITE UMBLRETTERN 
RETURN 

REM ak 

REM #%# TITEL-KOPF ZEICHNEN 

REM *#% 

PRINT" T'TABS 13?" Besssenesnen0nn8" 
PRINTTAB<13>" ee os 
PRIHTTAB<13>" se KARLUSSELL 88" 
PRINTTRB<13)" See UI 5 
PRIHTTREC 13)" SSsseose0n00000@" 
PRINT 

PRINT 

PRINT 

RETURN 

REM 3% 

REM ##%* SEITE UMBLAETTERN 

REM ##% 

PRINT"R 


GET C# 

IF C$<S>CHR$C13> THEN 80940 
RETURN 

RETURN 

REM #% 

REM ##%* FELD INITIALISIEREN 


FOR J=1 TO 5 
RERDAHCI, ID 


4 NEXT I, 1 


*% 
REM %% SPIELREGELN ERHUENSCHT? 
REM *%* 
nn SIE DIE SPIELREGELN ?" 


IF C$="T" THEN 19098 

IF C$<>"N" THEN 10040 

GOSUB &BRE:REM %*%* SPIELREGELN #% 
RETURN 

REM *%% 

REM #6 HUERFEL ZEICHNEN 


PRINT"TI 1" 

PRINT" 

T=INT{RHDEI1>#S+10) 

FOR I=1 TOT 

PRINT" RIM" ; 

»=1INTCRNDIIKE+1) 

ON X GOTO 11159, 11168, 11178,11189, 11198, 11208 
PRINT" MBBE" :GOTO 11210 

PRINT" KMEIIEBBBE" :GOTO 11218 

PRINT "IBBBEKKINHEEENTMERERBE" :GOTO 11218 
PRINT 'KIBBERKIETISEREEBBERBRBE" :GOTO 11218 
PRINT" XIRBBEIEEEBHAREBIEBEBBBE" :GOTO 11210 
PRINT"* * *" : PRINT" MMEBBE * 3%" 


KISTRISTNINTTSINTRIRDN" TABCE7 "CL RETURN >53" 


11218 IF I=T THEN 11270 


11228 PRINT" ARM " 
11238 PRINT" MB 
11248 PRINT" WEBBI " 
11259 PRINT"MI u 
11260 NEXT I 

11278 RETURN 


12008 REM Kk BILDSCHIRMADRESSE 
12010 REM #%*%* DER FELDER 


12020 REM | 

12020 DATA396. 434,472; 

12040 DATA622. 584,546, 
READY. 


"alter’”’ PET mit 


272,351. 438, 266. 347.423, 392, 424.466 
746.667 ,588. 752.671. 590,636, 5394, 5952 


kleiner Taschenrechnerähnlichen Tastatur 
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NOTIZEN 


Lotto 


LOTTO und Sie erhalten einen Vorschlag, wie Sie Ihren 
Dieses kleine Programm läuft auf Ihrem CBM nächsten Lottozettel ausfüllen können. Selbst- 
oder PET Computer. Geben Sie einfach RUN ein verständlich ohne Gewähr. 


1) 1 1 1 
Ber een 
T2$="] 01 
3$="| 98 
T4$="| 15 
T5$="] 22 
TE$="] 29 
T7$="] 36 
TS$="1 43 


INC IN cd fe 
RENTE En Er) 
RANG TIDE 
Fr (0 69 Pre ma Ca 
iR Kar Eu En En ZR) 
J (03 rm m 
Rome 
A LBwWpyrm rl 
IS Mm IDOTICcHA 
2 LIT 
Den aninc 
a RAID 
EHER Eau 


PR 

rn 

07) 
i) 


12 FRINT"7 
13 PRINT"S"S$+T1$ 
14 FRINTS$+T2$ " 
15 FRINTS$+TOF 
1& FRINTS$+TI1$ 
Tr FRINT3S$S+TSF 
S FRINTS$+TOF 
13 FRINTS$+T1$ 
2a FRINTS$+T4$ 
21 FRINTS$+TOF 
22 FRINTS$+T1$ 
&2 FRINTSF+TS$ 
24 FRINTS$+TOF 
25 FRINTS$+TIF$ 
26 PRINTS$+TEF 
27 FRINTS$+TOF 
25 FRINTSF+TI$ 
293 PRINTS$F+T7$ 
sa PRINTS$+TO# 
31 PRINTS$+T1$ 
32 FPRINTS$+TS$ 
33 PRINTS$+TI$ 
34 PRINT"M TO CONTINUE PRESS ”N’ <=NEW> 
35 PRINT" TO FINISH PRESS °’E’ <=END) 
36 %CO)=99 
37? FORZ=1T06 
38 W=8 
393 SCZI=INTCRNDCI) #49) 
48 FORY=OTOZ-i 
41 IFXCZI=XCV>THENM=E1 
42 NEXTY 
43 IFW=1THEN3S 
44 ZV=120KINTCHCZI77) 
45 SHEIKH CH ZI -PHINTCKCZIF?ID 
46 KRX=3277ArRV+XH 
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r3 


READY. 


POKEAX. 168 
PÜKEXA+1, 168 
PÜKERX+1, 160 
POKEXA+2, 168 
FÜREH +3, 168 
PÜKEHX+48, 160 
POKE#X+43, 168 
PÜKE®X+88, 168 
FÜKEX*+81, 168 
PÜKEXX+82,160 
FÜKEHX+83, 160 
D=PEEK(HAX+41) 
POKEXX+41,D+125 
I=PEEKCAH+42) 
POÜKEX +42, D+128 
NEXTZ 
GETR$: IFA$="N"THENI3 
IFA$="E"THENGS 
GOTOE3 
PRINT" TIIMNMIN CASE OF SUCCESS IN THE LOTTERT 
PRINT"MBY USING THIS PROGRAM, PLERASE, DO’NT 
PRINT"SFORGET THE FOOR AUTHOR: 
PRINT"ANISBRBBRBBI5.H. EALIER 
PRINT "IBBBRBRBIEGM. SCHWAIGERSTR. 13 
PRINT"IBBBRBBBEO1S GEAFING 
EN) LUCK ! IONIeIm 
N 


Blockade 


BLOCKADE 


Ein aufregendes Spiel für zwei Teilnehmer. 
Für jeden Spieler wandert ein Punkt über den 
Bildschirm und bildet dabei eine Linie. Der 
Spieler 1 (links) hat eine weisse Linie, der 
Spieler 2 (rechts) hat eine graue Linie. Jeder 
Spieler kann seine Linie nach oben, unten, 
rechts und links durch bestimmte Tasten steuern. 


Hier sind die Tasten, mit denen die Spieler 
Ihre Linie dirigieren können: 


Spieler 1 Spieler 2 
Links A 4 
Rechts D 6 
Oben W 8 
Unten X 2 
BLOCKADE 


Wenn also Spieler 1 seine Linie nach oben 


steuern will, so drückt er dazu die Taste "W ” 


uw. 


Wenn Sie Ihre Linie steuern, müssen Sie darauf 
achten, dass Sie weder die gegnerische Linie, 
noch die Spielfeldumrandung, noch Ihre eigene 
Linie überfahren, denn das bringt Ihnen einen 
Fehler. 

Versuchen Sie, Ihren Gegner mit Ihrer Linie 
einzukreisen, so dass er sich nicht mehr Be- 
wegen kann und einen Fehler machen muss. 
Wenn Sie einen Fehler machen, bekommt Ihr 
Gegner einen Punkt gutgeschrieben. Wer zuerst 
7 Punkte erreicht hat, ist Sieger. 

Viel Vergnügen. 


DIMPC4):PC1)=1:PC2)=-1:Pl3)=40: Pl4)=-48 
2#=81 :G0SUBS90G 
PRINTTABCS " NIIKINDEIER 


FPRINTTAB<S?"® 
PRINTTAB<(87"% 
PEINTTAB<(S>I"& 
PRINTTAB CHI" EEE RETTEN 


ELOCKRARDE 


FORI=1T01898: NEXT 


PRINT"ITI" :FORI=1TO5:FRINTTABCSP "TI 


PRINTTAE<SS? "TI 
PRINTTABCS> "MMA 


":FORJ=1T0208:NEATJ 
BLOCKRD E":FORT=1T0208:NERATIJ, I: PRINT" 


PRINTTAB(S>"A EIN FET-COMFUTERSPIEL : 


PRINTTAB<S>"3 
GOSLIESHAR 


PRINTTABLS>"MM VERSUCHEN SIE - IHREN" :PRINTTARCEH" 


GOSUBSBOH 
FORU=1T018:GETRA$: NEXTU 


PRINTTARCS>"TI KENNEN SIE DIAS SPIEL?" :PRINTTABCSH" 


GETR$: IFA$=""THENISO 

IFA&=" T"THENZ208 
IFA£="N"THENGÜSUBFOGE : GOTO209 
PRINTTAB<S>"T EITTE 717 
PRINT"T' 
PRINT"MMSIIEHAME DES 1. 
INPUT"M"SNF$CI) 
PRINT" MMISNRME DES 2. 
INPUT"M";N$CZ> 


Ta“ N> 


CDER “N”":GOT0158 
SPIELERS CLINKS>" 
SPIELERS CRECHTS>" 


GEGNER EINZUKREISEN " 
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PRINT" IM" 
PRINTN$<C1D:" HAT DIE TASTEN" 
PRINT"mM’A’, 8%”, "D” UND WW" 
PRINT"M" :FORI=1T048: PRINT"="; :NEXT 
PRINT"MM"N$C2>;" HAT DIE TASTEN" 
FRINT"M’4’, "2%, 6° UND 78%" 
GOSUB8BGB : GOSLIBSBHG 
P Er 1} 
PRINT"MIT WELCHER GESCHWINDIGKEIT WOLLEN SIE" 
PRINTTAB<C15) "MABLOCKADEM" 
PRINT"MSPIELEN?" 
PRINT"MIWGEBEH SIE DIE ENTSPRECHENDE ZAHL EIN: " 
FORU=1T018:GETR$:NEXTU 
PRINT"MSIMC1> ANFAENGER" 
PRINT"mC2> FORTGESCHRITTENE" 
PRINT"MC3> MEISTER" 
PRINT"MC4> BLOCKADE-STARS" 
GETA$: IFA$=""THEN39O 
IFASCSAF > S4IORFSCCAFI>SZTHENPRINT"MBITTE EINE ZAHL WON 1 BIS 4 !":GOT039G 
G=18+C4-VALCAFI?KS 
REM 
RU=8 
51=0:52= 
2r=127: GOSUBIB08 
FRINT" BI" N$C19, TABC39-LENCHFCEI PD INSCZH 
RU=RU+1 


A P1=33258:P2=33277 


I1=PCINTERNDC 134 +19 9 
I2=PCINTERNDCI>#4+1 2) 
FORY=1TOG:GETA$ 
IFA$="A"THENI1=-1 
IFA$="%"THENIT1=48 
IFA$="D"THENI1=1 
IFA$="W"THENI1=-48 
IFA$="4"THENI2=-1 
IFA$="Z2"THENI2=48 
IFA$="6"THENI2=1 
IFA$="S"THENI2=-48 

NEXTY 

Pi=Pi+INTCI1> 

IF PEEK<PIY<S>3Z. THEN F=1:FP=Pi-11:52=52+1:GOT06096 
POKE P1,168 

PZ=P2+INT<CI2) 

IF PEEK(PZI<>32 THEN F=2:PFP=F2-12:51=51+1:G0T06BE4 
POKE P2,182 

GOTO1208 

PRINT"" 

POKES9489, 52 

FOR 1=32763 TO 32307 

POKE I,Z22:POKE I+964, 2% 

NEXT 

FOR 1=32768 TO 33723 STEP 48 


8608 POKE I,22:POKE 1+39,2% 


NEXT 

POKES?483. 68 

RETURN 

FORI=1T018: FORJ=1T0108: NEXT: POKEPP, 63: FORJ=1T0186:NE&T: FÜKEPP, 32:NEXTI 
24=42:GO5SUBS909 

PRINT" SOEIRDISDIRINISIEISTERBBIFEEHLER DURCH ";N$CF) 

PRINT"BBBI"; :FORI=1TOLENCN$CFP +13: PRINT" "3 NEXT: GOSUBSBOE 
IFS1=7ORSZ=7THENSEFE 


GOSUBSG98: PRINT"INMIIBBBISE LNTDIE ";RU 


a PRINT" BIBBBSE FIELSTRAHD" 


PRINT "WEB" 
FEINT'INEBRBI" :H&C1Y: :PRINTTABC2O>S1 
FRINT:PRINT"IBBI":NEC2: :PFRINTTABCE0>)52 
GOSUBEBHE 


4 GOTO18489 


2r=163:GÜSUES888 :PRIHT"MUBBBINS FIEL OD ZU ENDE" 
PRINT: PRINT: PRINT"IBBENDSTAND" 
FRINT"IBBkeuersunsue" : PRINT: PRINT 


a FRINT"IBBIR";N$7 1: :PRINTTABC2BS1 


sag PRINT: PRINTTRBBIA" ;N$CZ2;: PRINTTAB<28582 


S5=1: IFSISSZTHENS=2 


PRINT" MNISBBRIGFATL ILIERE "zu Nc5d;"E"PRIMT'"MBBIDU HAST GEWÜNNEN 1" 


GOSUESBBA: GOSLUEBSBAE : Zr=62! GOSUFSOBR :FORU=1TO10:GETAF:NEXTU 
PRINT"MMMAMEEEBBBBIH ELES SFIEL TB CIN>" 
GETAF: IFA$=""THENFORS3 

IF R$="T" THENIERO 


IFAF<>"N"THENPRINT"IEBBBER+ IT ODER N EINGEBEN !":G50T07083 
24=35: 60SUBSG98: FRINT'" MIMSIINEIERBBBIAUF WIEDERSEHEN BEIM SPIEL" 


PRINT:FRINTIEBBE LO CK RAD E" 
GOSURSBAB: PRINT" :EHD 


a FORI=1T04E3:NEXT: RETURN 
3 PRINT"T' 


PRINTTABSIO:'"U ILLKÜMME N" 
PRINTTABS1O>"M zum SPIEL" 


4 PRINTTAB(10>"M9 a 


PRINTTABCIO"d BLOCKADE " 

PRINTTAB< 102" 3 i 

PRINT"MMMMD> BLOCKADE << IST EIN STRATEGISCHES" 
PRINT"WSPIEL, DAS IHRE RERKTIONS-SCHNELLIGKEIT" 
PRINT"MTESTET. " 

PRINT"D> ELOCKADE << SPIELEN ZWEI PERSONEN" 

PRINT "GEGENEINANDER. " 

GOSUBS088 : GOSUBSEAR 

PRINT"I" 

PRINTTAB«S) TI 

PRINTTAB(S") SPIELREGEL " 
PRINTTABCH ML De eh 

PRINT"WSFUER JEDEN SPIELER WANDERT EIN PUNKT  " 
PRINT"UEBER DEN BILDSCHIRM UND BILDET i 
PRINT"DABEI EINE LINIE - DIES SIEHT SO AUS: ":G0SUBEARG 
FOR1=337381033758 :POKEI . 16@:FORJ=1T0198:NEXTJ,I 
GOSUBSBAB:PRINT"TTTITDER SPIELER 1 (LINKS) HAT EINE WEISSE 
PRINT"LINIE (A @), DER SPIELER 2 (RECHTS? HAT 
PRINT"EINE GRAUE LINIE <®) 

GOSUBSALR : GOSLIBSEIIE 

PRINT"TIITWEDER SPIELER KANN SEINE LINIE NACH , 
PRINT'WEENE _HUNTENE GRECHSE GLINKSE " 
PRINT"DURCH BESTIMMTE TASTEN STEUERN ": GOSUBSADR 
PRINT"THIER SIND IIIE TASTEN, MIT DENEN DIE " 
PRINT"SPIELER IHRE LINIE DIRIGIEREN KOENNEN: " 
PRINT"AMSRICHTUNGE", TABC1@>"SPIELER 1  ","SPIELER 2" 
FORI=1T039:PRINT"-"; :NEXT 

PRINT" LINKS", "Rn ",.,„trgi" 

PRINT"WRECHTS" 5 u D° ” Pu " ’&’ “ 

PRI NT'"IOBEN" ä s 4 LU) 5 " ’8’ u 

PRINT"UNTEN" , "X", , "027" 


3 PRINT"MRWENN ALSO SPIELER 1 SEINE LINIE NACH" 


PRINT"OBEN STEUERN WILL, SO DRUECKT ER DAZU" 
PRINT"DIE TASTE "W’ USW." 
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PRINT"MBITTE SCHREIBEN SIE SICH DIE TASTEN AUF" 

PRINT"UND MERKEN SIE SICH IHRE BEDEUTUNGEN. 

PRINT"IWENN SIE FERTIG SIND, DRUECKEN SIE ":FORU=1TO18:GETRA$:NEXTU 
PRINT"BITTE DIE TASTE "RETURN" 

GETA$: IFR$=""THENISSE 

PRINT"TWENN SIE IHRE LINIE STEUERN, MUESSEN" 

PRINT"MSIE DARAUF FICHTEN, DASS SIE WEDER DIE" 

PRINT"MGEGNERISCHE LINIE, NOCH DIE SPIELFELTD-" 

PRINT" RUMRANDUNG. NOCH IHRE EIGENE LINIE" 

PRINT"NUEBERFÄHREN, DENN DAS BRINGT IHNEN " 


> PRINT"WEINEN SFEHLERE, " 
> GOSUBSB08 : GOSLIBSOHB: 


PRINT" MMANMERSUCHEN SIE. IHREN GEGNER MIT IHRER" 
FRINT"BLINIE SEINZUKFREISEN®, 50 DASS ER SICH" 
PRINT"NICHT MEHR BEWEGEN KANN UND EINEN" 


” PRINT"NFEHLER MACHEN MIJSS." 


GOSUBSAGU : GOSUBSOHB 

PRINT"TWENN SIE EINEN FEHLER MACHEN. BEKOMMT" 

PRINT"MIHR GEGNER EINEH FUNKT GUTGESCHRIEREN. " | 
GOSUBSCHB : PRINT" MEMIRDH ELOCKADE <T GEWINNT. WER FL5 ERSTER" 
PRINTTRB<C15>"97 PUNKTER":PRINT"WERREICHT HAT!" 


3 GOSUBS898 :PRINT"I":TABC4>"UND NUN WUENSCHT IHNEN IHR PET" 
> 


PRINTTRAB<2>" MAINIM 

PRINTTRE<C9>"I WIEL YERGNUEGEN |" 
FRINTERBSFI VL nn 
GOSUB3G9H 

PRINT"T"' 


3 PRINT"WENN SIE NUN MIT DEM SPIEL BEGINNEH " 


PRIHT"WOLLEN. SO DRUECKEN SIE EITTE JETZT" 

PRINT"DIE TASTE °SFACE“ " 

PRINT"MIIEWENH SIE DIE SPIEL-ANLEITUNG HOCHMALS" 

PRINT"LESEN WÜLLEN, DANN DRUECKEH SIE EITTE":FORU=1TO1A:GETAF:NEXTU 
PRINT"DIE TASTE "RETURN“" 

GETR$: IFR$=""THENF915 

IFA$=" "THENRETURH 

GOTOIHBEA 


CRASH 


CRASH 


Das Spiel CRASH simuliert ein aufregendes 
Autorennen gegen den Computer. Sowohl Sie, 
als auch der Computer sitzen am Steueres eines 
Rennwagens. Der Computer fährt mit dem 
grauen Fahrzeug (gerastertes Muster). Sie sitzen 
im "weissen ” bzw. "grünen ” Auto. Die Renn- 
bahn besteht aus ineinandergeschachtelten Fahr- 


REM 


bahnen. Auf jeder Rennbahnseite sind die Fahr- 
bahnen unterbrochen. An diesen Stellen können 
Sie die Spuren durch Drücken bestimmter 
Tasten wechseln. Ihre Aufgabe ist es einen 
Zusammenstoß mit dem vom Computerge- 
steuerten Auto zu verhindern. Eine genaue An- 
leitung gibt Ihnen das laufende Programm. 


= POKEZ19, PEEK(S5?464 2: FOKEZ28, PEEK (594655 :POKEZ21, FPEEK<S3143 : POKE222. PEEKC513> 


PRINT"" 
PRINT" WILLKOMMEN ZUM COMPUTERSPIEL" 
PRINTTABCLON"M 1" 


265 PRINTTABIO>" CRASH 1 
27 FRINTTRBIIEN"L_— 1" 


FORI=1T03044: NEXT 


ef: FRINT" IIRDISISIEINISKENNEH SIE DAS SPIEL BEREITS 7 
3 GETR$: IFA$=""THENSO 
Ei IFA$="N"THENSEG 


IFA$=" I" THENZUE 

FRINT"TI EITTE TASTE ”J” ODER 
PRIHMT"T 
FRINT" 
FEIHT"I SPIEL / - 
PRINT" 

PRINT" MMNDAS SPIEL SCRERASHE 
FRINT"MGEGEN DEN COMPUTER. " 


CT/NDIIN" 


“N” DRUECKEN 1":GOTOS5A 


ANLEITUNG " 
IST EIN AUTORENNEN" 


FRINT"MINSOWCHL SIE. ALS AUCH DER COMPUTER, " 


PRINT"ALENKEN EIN ALTO. 


FRINT"WSIE HABEN DAS WEISSE FAHRZEUG 9 W}" 
FRINT"MDER COMPUTER HAT DAS GRAUE FAHRZEUG CRM" 


a8 GOSLUEEAAA 


PRINT"IDAS SPIELFELD BESTEHT AUS VIER — INEIN-" 
PRINT"BANDERGESCHACHTELTEN - FAHRBAHNEN. 
FRIHT"MARHUF JEDER SPIELFELDSEITE SIND DIE " 
PRINT"MFRHRSPUREN UNTERBRÜCHEN -— HIER KOENNEN" 


„a FRINT"MSIE DIE FAHRSPUREN, DURCH DRUECKEN BE-" 
FRINHT"WSTIMMTER TASTEN WECHSELN. " 


FRINT"MBINIHRE AUFGABE IST ES, EINEN JEUSAMMENSTOSS" 
PRINT"MIT DEM COMFUTER-AUTO ZU VERHINDERN. Mm" 


530 GOSUBEBAG 


FRINT"HIER SIND DIE TASTEN, MIT DIENEN SIE IHR" 


> FRINT"SAUTO LENKEN KOENNEN: " 


FRINTTREOS "MN tr" 
PREINTTREL1EH" I? ISE19 I" 


"12 PRINTTRBCIEI" D4—" 
3 FRIMTTABIEH"IMEISISSE| 


PRINTTAB(LE>" 444" 
FRINTTABCIEI" IL IRSMIS I" 
FRINTTABGLEI" 
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FRINT, "MSITASTE" . "LENKUNG NACH" 
PRINT; "----- en Nee m" 

PRINT, "8", "OBEN" 

PRINT, "4", "LINKS" 

PRINT, "2", "UNTEH" 

PRINT, "6", "RECHTSM" 

GOSUBEBUO 

FRINT"TDRUECKEN SIE EINE TASTE SEINMALE, 50" 
PRINT"WWECHSELN SIE SEINE® FAHRSPUR IN DIE ENT-" 
PRINT"SSPRECHENDE RICHTUNG, DIE DURCH DIE GE-" 
FRINT"MDRUECKTE TASTE BESTIMMT IST." 

PRINT"MEBLIRD EINE STEUERTASTE SZWEIMAL® GEDRUECKT, " 
PRINT"SO WERDEH SEWEIM FAHRSPLUREN GEWECHSELT. MADIEISIR" 


GOSUBEHHR 


PRINT"TAUF DEN FAHRSFÜREN BEFINDEN SICH " 
PRINT" SSÄRKIERUNGSPUNKTE®, DIE DURCH DAS UEBER-" 
PRINT"BFAHREN MIT IHREM FAHRZEUG GELÜESCHT" 


PRINT"IWERDEN. " 


PRINT"MMDARS SPIEL IST ZU ENDE, WENN SIE ALLE" 


PRINT"BPUNKTE SGELÜESCHT@ HABEN ODER ABER DIE" 
FRINT"MSSPIELZEIT® ABGELAUFEN IST. SIE HABEN" 
PRINT"MAEGEM ZEITEINHEITEN ZUR YVERFUEGUNG. IRINDNIel" 


GOSUBEEAO 
FRINT"TWMENN SIE JETZT MIT DEM SPIEL BEGINNEN" 
PRINT"BWOLLEN, 50 DRUECKEN SIE EITTE DIE" 


2 PRINT"MTASTE S35PACE" 


FRINT"MIISUIENN SIE DIE SPIEL-ANLEITUNG NOCH" 
PRINT"BEINMAL LESEN WOLLEN. SO DRUECKEN SIE DIE" 
FRINT"TASTE SRETURNE" 

GETA$: IFA$=""THEN?SE 

IFR$<>" "THENSBO 

PRINT" TIBRBRBBRBEUND NUN WUEHSCHE ICH IHNEN" 
PRINTTABC1Z>I"MINAINEINSW IEL VERGNUEGEN 1" 

FORI=1 703040: NEXT 

CLR 

DEFFNMCH>=R-INTCR/4IR4 

DEFFHRCÄA>=INTERNDE DER) 

RESTORE 

PRINT" TINISISIRDMEDNIISTEINDN" :A=32769: B=33723: 2236: v=4 :POKES9I459, 0 


FORI=1T04 :FORJ=8T02 :POKER+T, 64: POKEB+J. 64 :POKER+46+J, 46: POKER-40+J, 46: NEXT 


£&=2-4: A=R+82: B=B-75:NEXTI:FORJ=@TOZ :FOKER+J., 64: POKEB+J,64:NEXTJ 
A=32808 : B=32846:2=22: FÜRI=1T04: FOR J=OTOZ : POKER+ I#48, 23: POKEB+ 40,93 
POKER+J%#40+1. 46: POKEB+J#40-1.46:NEXTJ 


Ss &=2-4:R=R+82: B=B+78:NEXTI:FORJ=BTOZ :FOKER+ #40, 93: POKEB+J%*48, 93: NEXTJ 
ı A=32768: B=33728:2=38 


ee a 
A=32866 : B=33666: FÜRI=1T03:FORJ=8T02:POKER+J, 32: POKEB+J,32:NEXTJ 
A=R+38: B=F-80: NEXTI 

A=33218:B=33244 :FORI=1T03:FORI=08T02 : POKER+ T%*4A, 32: POKEB+ #48, 32: NEXTI 


2 A=f+2:B=B-2:NEATI 


PRINTTAEOIS"STEEIT:" 
DIMRCSP,KFC3I>:FORI=9TO3:RERDRCITP.KFCIS:NERATI 


. DATA 1; 8. -48, 4, -1,2, 49,6 

3 DIMWC3, 32: FORI=OBTO3: FORIJ=SOTO3: RERDWCOIT, J2:NEXTJ, TI 

A DATA 33707, 33285. 32927 , 33243, 33627 , 33283, 32907 , 33251 
a DATA 33547, 33281. 32987 , 33253. 33467 , 33279. 330967 , 33255 


WW=46:FU=6: T=299 
PC=33175:RC=2:5C=2: TC=3:FP=33709:RP=9:SP=1:TP=8: V=3:Y=1:P1=33789: Wr] 


5 YWy=3:l=3 


1078 
1075 
1190 
1585 


4a2cı 
4E3E 
4835 
4940 
zalsls 
a1 
Suza 
a2 
Ea3E 
3 
Inne) 
EISEN 
SEE 
Sa 
„100 
11 
Si2d 
200 
Jelda 
Sec 
Ze3d 
286 
Sa 
ezlap! 
SO 


Rchlt, 


IFPP=WCTP. SPY THENGOSUB2088 
IFY<3THENPP=SFP+RCYP) :Y=Y+1:GOTO1100 
x=PEEKCPF+RERP)) : IFK=640RK=93THENRP=FNMCRP+1N 
PP=PF+RCRP) 


a POKEP1. 22: IFPEEK< PP)=465THENPU=PU+1 


POKEFP, 168:P1=PP: IFPU=367THENSQBE 
IFFEEK{FC?>=1698THENdOOB 


a IFPC=WCTC, SCDTHENGOSLUBIOBR 


IFYY<LTHENPC=SFPO+HR VCH Y=YV+1:GOT0O1308 
8=PEEKCFÜ+HRCRCHD : IFR=E4ORK=F3THENRC=FNMERC-1) 
PC=PC+RCRC) 


a POKEP2.WW:WU=PEER (PC): FOKEPC.182:P2=FC 

3 PRINTTAB<1S>"TYT"H ":T=T-1:1FT>OTHEN1878 
3 GOTOSQGO 

A GETRE: Y=Y+1: IFY=4THENZEIO 


IFA$=K$CSPIANDTPÖ3STHENTP=TP+1:V=1 :YP=FNMCRP+13 RETURN 
IFA$=K$CFNMCSP+2) JANDTF>BTHENTP=TP-1:V=1:VP=FNMCRP-15: RETURN 


3 GETA$:GETA$: 'Y=1:SP=FNMCSP+15:RETURN 
ae +l: IFTT=SORFNRC4>=BTHENSQSB 


IFTP-TC>ANDFNRC3I>BTHENTC=STC+2:L=5: YY=1:VC=FNMCRC-13 : RETURN 


4 IFTC-TF>IANDFHRSSIPOTHENTE=STC-2 1.25: Y=1:VC=SFNMERC+HLI RETURN 
> IFTP>TCANDFNR<CZI=SBTHENTC=TC+H:L=3:VWY=1:YC=FNMERC-13 RETURN 


IFTCHTPANDFNRCZI=SSTHENTCSTC-1:L=3:VYY=1 VE=FNMORC+H13 RETURN 


» IFTE>BANDFNRSEN=BTHENTESTC-1:L=3: Val: YC=SFNMERC+HD RETURN 
- IFTE<SANDFNRSZI=8THENTC=STC+HL:L=3:WY=1 2: YC=FNMERC-13 RETURN 
3 YY=1:5C=FNMCSC-1: RETURN 


CR=CR+1 

FOR1=1T05:FORT=1T0288:HEXT.T:PRINTTABS1S2"T  CRASHI TI" :POKEPC,S2 
FORJ=1TO2809:NE&TI:FRINHTTABE162"T ":PÜOKEPC,42:NEHTI 
FÜKEFC. 32: FÜKEPP. 32 


IFUWN=468THENPÜKEPEC , 46 
PRINTTABS1SH"TIEEIT:":GOT01065 
FRINTTABE1S2"TWSFIEL ZU ENDE" 
FORI=1T70380@:NEATI 


PRINT"I" 

PRINT"M3 ’ 

FRINT''WA3 7 5FIEL = BERBSEERN TS." 

PRINT"IA ":IFT=8THENS10B 
FRINT"MISGRATULIERE, SIE HABEN ALLE MARKTERUNGEN" 


FRINT"GELÜESCHT" 

PRINT" NMNSANZAHL DER ZUSAMMENSTOESSE: "CR 
PRINT"NSBENDETIGTE ZEIT:#",.16094-T:60T05288 
PRINTTRBKSP"MADIE SPIELZEIT IST ABGELAUFEN" 

PRINT" UMSSAHZAHL DER ZUSAMMENSTOESSE:@" CR 

FRINT"MAANZAHL GELDESCHTER FUNKTE:M" PL 

PRINT" MIBWOLLEN SIE NÜOCH EINMAL SPIELEN 7 CI" NIMM" 
GETR$: IFA$=""THENSZIE 

IFAF="T" THENFER 

IFA$<SH"N"THENPRINT"TIEITTE °I° ODER “N” DRUECKEN !1":G0T05218 
PRINT" TMAHUF WIETERSEHENMISIMBEIM SFIELMSNACRASHAIRIEN" : EHTI 
FRINT"MSELM WEITERELRETTERH EINE TASTE DRUECKEN" 
mean. 

"ETURN 
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NOTIZEN 


String-Sort 


STRING SORT 
Dieses Utility Programm sortiert Zeichenketten steigend. Mit diesem Programm lassen sich 
in alphabetischer Reihenfolge. Auf- oder ab- maximal 255 Strings sortieren. 

zaad REM 

ala GOTO4IOHA 

za2c PRINT"TI":PRINTTABCSH " ITTTTTTTTT 


ZU3E 
2048 
2058 
zu6u 
zu7E 
Zusg 
2130 
+aaEı 


4910 


+4aza 
+3 
YAa4E 
+asa 
+OBE 
are 
wis [s[h 
ale 
Br 5. 
=a30 
sage 
Ssa58 
Sa6r 
sa70 
Sage 
=a98 
5100 


FRINTTRESP"N) 5STRING-SUORT !" 
PRINTTABSS>"L________ 1: RETURN 
PRINT" MSAMDIESES FROGRAMM SORTIERT SZEICHENKETTEN" 
PRINT" WALFHABETISCH AUF- ODER ABSTEIGEND. " 

FRINT" MMIMIMASIMAL KOENNEN MIT DIESEM PROGRAMM" 
PRINT" M3255® STRINGS SORTIERT WERDEN. " 


FORI=1T0&990: NEXTI: RETURN 


GOSUBEO2A: FÜRI=1TO10:GETRA$:NEH&TI 

PRINTTAB<S> "MINIKENNEN SIE DAS FROGRAMM BEREITS?" 
PRINTTAEC1E>"MCIT / N? 
GETR$: IFA$="" THEN4O3O 
IFAF="N"THENGOSUB2020: GOSUB2958: GOTOSGEBO 


IFA$=" T"THENSGBB 


FRINT"M “NE 
PRINT": ONSUBZ2028 
DIMA$C255> :N=8 


‚FRINT"MEITTE NUR 1” FÜUER SIAM ODER" 


FÜER 3NEINB EINGEBEN!":GOTO48938 


PRINT"MMEITTE MACHEN SIE JETZT IHRE EINGABEN: " 
PRINT"WWENN SIE FERTIG SIND, GEBEN SIE BITTE" 
PRINT" DAS WORT SENDER EIN. Ma" 

N=N+1 :PRINTN, : INPUTX$ 
IF®$="ENDE"THENN=N-1:GOTO6GAA 


AsCHNI=4$: IFNS=254 THENSOSO 


PRINT"MWSIE HABEN BEREITS 255 ELEMENTE EIN-" 
PRINT"SSEGEBEN - KEINE WEITEREN EINGABEN" 
FRINT" MOEGLICH": FORI=1T0ZUAG:NEXTI 


FRINT"T' 


PRINT"DIE ZEICHENKETTEN WERDEN SORTIERT" 


3 DIMSTAC12,23:M=12 
41 59=1:5T201,19=1:5TrC1,23=N 


L=ST%(CS,12:R=5T%(5,23:5=5-1 


3 I=L: JeR: A$=AFCINTIECL+RI 2)? 


IFAFCIISS$THENI=I+1:G0T06868 
IFSSCAFCTITHENJ=J-1:G0T06078 
IFI<=ITHENWE=SR$SCDI:AFCDI=ASCTI:ASCTI=W$: I=IH1: = 1-1 


IFIS=JTHENSUEH 


IFIERTHENS=S+1:5T4C5,19=1:5T%A(5,29=R 


R=J: IFL{RTHEN8858 
IFS<Z>OTHENGO4EA 


PRINT" MNSSORTIEREN BEENDET" 

FRINT'"MSSSOLLEN DIE ZEICHENKETTEN AUFSTEIGEND" 

PRINT"SODER WABSTEIGEND® AUSGEGEBEN WERDEN 7?" 

PRINT" MWIMMBITTE DRUECKEN SIE TASTE *t’FUER ":FORI=1T018:GETR$:NEXTI 


PRINT"MAUFSTEIGEND, 


TASTE 


”«” FUER RBSTEIGEND" 
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5230 
524 
Bl 
8260 
GOBE 
tesa) 
SadE 
SealE 
Saza 
5393 
a4 
Sag 
Sog 
=5i18 
buche es 5 
De) 3%) 
3540 
S55f 
Sb 
are 
Saga 


mERD'T, 


GETAF: IFA$=""THENGE3O 

IFA$=" 1" THENESOO 

IFA$="+"THENESOO 

FRINT"MEITTE TASTE *t1” ODER *+” DRUECKEN: ":GOTOS23E 
FRIHT"TI":FORI=S1TON:PRINTI.A$CID : GOSUEFG88 : HEXTI: PRINT" NM": GOTOSEHB 
FREINT"Z":FORI=SNTOISTEF-1:FRINTI,A$CI> :GOSURFABR : NEXTI:PRINT"M":GOTO30909 
PRINT"WÖLLEN SIE DIE ELEMEHTE NOCHMALS ":FORI=1T019:GETRA$:NEXTI 
FRINT"AUFLISTEN? £.17M) 2 

GETA$: IFAF=""THENSBZ 

IFAF="N"THENEND 

IFA$=" I" THENSSAO 

PRINT"MBITTE “J” ODER “N” DRUECKEN!":GOTOSEZO 

PRINT"TMOLLEN SIE SCHNELLE ODER LANGSAME " 

PRINT"MAUSGABE?" 

FRINT"MIINGEFEN SIE EIN "5° FUER SSCHNELLE" :FORI=1TO10:GETA$:NEXTI 
PRIHT"BUND EIN "L” FUER LANGSAMER AUSGABE EIN" 

GETAF: IFA$=""THENGS4O 

IFA$="S" THENE=1:PRINT"TT':GOTO6168 

IFA$="L"THENE=1080: PRINT"TI":GOTOS16A 

FRINT"MEITTE EIN "5" ODER “L” EINGEBEN!" :GCTOSS44 

FÜR T=1TOE:HEHTI:RETURN 


Commodore CBM System mit Floppy Disk Station 


Vier gewinnt 


Vier gewinnt 


Dieses Programm besteht aus zwei Teilen. Laden 
Sie den ersten Teil und starten Sie mit RUN. 
Auf Wunsch erhalten Sie jetzt ausführliche Spiel- 
regeln. 


Auch hier handelt es sich wieder um ein sehr 
interessantes Srategiespiel. Das Spielfeld (Bild- 
schirm) besteht aus sieben Spalten mit je sechs 
Feldern. Die Spieler werfen abwechselnd Ihre 
Steine von oben in eine Spalte. Die Steine der 
einzelnen Spieler sind unterschiedlich gekenn- 


zeichnet, so daß diese leicht unterscheiden 
können. Das Ziel des Spieles ist so schnell 
wie möglich vier Steine in einer Reihe anzu- 
ordnen. Entweder senkrecht, waagrecht oder 
diagonal. 


Beim ersten Spiel bestimmt der Computer, 
wer zuerst beginnt, anschließend wird immer 
abwechselnd angefangen. Für einen Sieg gibt 
es zwei Punkte — für ein Unentschieden gibt es 
einen Punkt. 


a0 DIMERC7,69. BEE), 78079, IA ,CHE2) 


110 GOSUB1748 


128 INPUT"MIDEIIIKENNEN SIE DIE SPIELREGELN BEREITS";A$ 


139 IFLEFTSCAF, 1)="T"THENS4O 
14a IFLEFT$CAS,1IS>"N"THENI11O 
158 GOSUB1748 

cd PRINT" SSPIELREGELN 


179 PRINT"MORS SPIELFELD BESTEHT AUS 7 SPALTEN 


150 PRINT 


130 PRINT"<WON 1-7 DURCHNUMMERIERT> MIT JE 6 


zaa PRINT 
21a PRINT"FELDERN. 
220 PRINT 


230 PRINT"DIE SPIELER WERFEN ABWECHSELND IHRE 


240 FRINT 


25a PRINT"STEINE C& FUER SPIELER 1, 


260 PRI 


 FUER 


JT 
27a PRINT"SPIELER 2) IN EINE DER SPALTEN. 


238 PRINT 


N 
>94 PRINT"SIEGER IST. WER ZUERST VIER STEINE 


>04 FRIHT 


319 PRINT"WARGERECHT. SENKRECHT ODER DIAGONAL IN 


=28 PRIHT 

=30 PRINHT"EINER REIHE HAT. 
24a GOSLE1T72B 

250 GOSUB1Y74U 


260 PRINT"MIM ERSTEN SPIEL WAEHLE ICH DEN SPIELER 


ara PRINT 


220 PRINT"AUS, DER ANFRENGT. DANACH WIRD IMMER 


>90 PRIHT 


sag PRINT"AEWECHSELND ANGEFANGEN. 


41a PRINT 


424 PRINT"HNACH JEDEM SPIEL ZEIGE ICH DEN SPIEL- 


430 PRINT 


444 PRINT"STAND AH <FUER EINEN SIEG GIFT ES ZWEI 


45a FRINT 


468 FRIHT"PUNKTE, BEI EINEM LINENTSCHIEDEN BEKOMMT 
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PRINT 

PRINT"JEDER EINEN PUNKT>. DANACH KANN DURCH 

PRINT 

FRINT"DRUECKEN DER RETURN-TASTE DAS HRECHSTE 
AT 


PRINT"SPIEL GESTARTET WERDEN. 
GOSUB1798 
GOSUB1 740 
INPLIT" IIWEIAMOECHTEN SIE GEGEN MICH SPIELEN" ;A$ 
IFLEFT$SCA$, 1 )="N"THEN?9O 
IFLEFT$CA$, 13C>" I"THENS48 
GOSUB1 740 
PRINT"WENN SIE GEGEN MICH SPIELEN, BEKOMMEM 
PRINT 
PRINT"SIE DAS ZEICHEN ®. ICH FANGE AN CICH 

IN 
PRINT"SETZE AUS TAKTISCHEN GRUENDEN IMMER IN 
PRINT 
PRINT"SPALTE 4), DANACH WIRD ABWECHSELND ANGE- 
PRINT"FANGEN. NACHDEM SIE GESETZT HABEN. 
PRINT 
PRINT"BILLIGEN SIE MIR EITTE CA. 28 SEKUNDEN 
PRINT 


PRINT"BEDENKZEIT ZU, BEVOR ICH MICH FÜUER EINEN 
PRIHT"ZUG ENTSCHEIDE. 

GOSLIB1 794 

GOSUB1 740 

EI EN SIE JETZT BITTE DEN 2. TEIL 
PRINT"DES PRÜGRAMMES 

PRINT" ISMLOAD"CHREC34> "VIER GEWINNT 2"CHR$CI4)"TTT 


END 
Bez" 


BE(1,="® 

TEC1)=IRBl" 

TECZ>="IBBRBBRBI" 
TEC3)="IBBBRBRBBBREBI" 
"E(4)=Z"IRRRBRRBBBBRBBBRRBN" 
Y£C7?’="IRBBBBRBBBBBBBRRBRBBR DT" 
"3(6)="MIBBEBEBENBBENT 

7$C77=" EURER" 
D=INTERNDII#2+1) 

el 


„CI>=1 

NEXT: IFFEEK(6333<>934 THENNEN: PRINT" IERBBREREREBERBRRRERRRRR RR RREN N 
FORI=1T07 

FORIT=1T06 

BACT,. J3=B 

NEXTI.I 

ee) DO EINE ER IEL JORERENRUDENSSSSENORABEARERENN! 
=Q+1 

IFQ=3THENO=1 

A=Q 


PRINT" TIEBBl" ; 


A FORI=1TO7 
A PRINT" A;I:"", 


NEST 
FRINT"® 


FRIMNTT mE STETERTEETEIETTNENENTEETETEEERNTENN 


a FORI=1TO6E 
A FORI=1T02 


IS 
149 
118 
ilic 
1120 
1130 
1140 | 
1158 
ilebc 
ılra 
1156 
11908 
1292 
1218 


NEXT 

PRINT" 3 

NEST 

REM HAUPTROUTINE 
PRINT" FAMIKInIn 


N AN DER REIHE IST SSPIELER";A 


GETA$: IFA$= “nTHENL130 
=YALCAF$I: IFI<IORTI7THEN113Q 


IFI#CJI=FTHEN1130 


IFEAKLT, IECTDI<DOTHENI1138 


BEL T, IECDII=R 

REM ZUG EINZEICHNEN 
PRINT" SIR" ; 
PRINTYECITPIBECAD 
FRINTY$SCIY:B$CA) 
IFI@CJ3=6THENI 306 


a FORI=STOIACJPSTEP-1 


PRINT""TI'Y$LTI:2$ 
PRINTYECNI:SBECA) 


A NEHTI 


a PRINTYECIY:ZE:PRINT"M'TSCII:BSCA) 


REM TEST OB SCHON GEWONNHEN 


3 REM TEST OB WARGERECHT VIER IN EINER REIHE 


B=1%cC13:FORC=1T07 : IFBACC, BI=ATHEND=D+1 : IFD=4THEN1678 


IFBACC. BI<CIATHEND=8 


4 NEHXT:D=8 


REM TEST OB SENKRECHT WIER IN EINER REIHE 


IFB<4THENI1 380 


FORC=BTOB-35TEP-1: IFBACJ, CY=ATHEND=D+1 : IFD=4THEN1678 


IFBACJ.CYI<C>ATHEND=O 


3 NE#T:D=0 


REM TEST OB DIAGONAL VIER IN EINER REIHE 
REM YON LINKS UNTEN BIS RECHTS OBEN. DIE ERSTEN VIER SPALTEN 
FORH=1T04:C=H: FORG=1T06: IFBACC, GP=ATHEND=D+1 : IFD=4THEN16708 


IFBA<CC. GP <S>ATHEND=8 
C=C+1: IFÜ=STHENI448 
NEXTG 

D=8:NESTH:TI=0 


REM VON LINKS NACH RECHTS IN DER ERSTEN SFALTE 


IFERCC, G><>ATHEND=8 


3 FÜRH=1TO2:C=1: FORG=H+1T0& : IFBACC. G>=ATHEND=D+1 : IFD=4THEN1678 


C=C+1:NESTG:D=8:HEXTH:D=6O 
REM YON RECHTS UNTEN BIS LINKS OBEN, DIE LETZTEN VIER SPALTEN 
FÜRH=7TO4STEP-1:C=H:FORG=1T06: IFBACC, GP =ATHEND=D+1: IFD=4THEN167E 


IFBASC.OISHATHEND=E 
C=C-1:1IFC=BTHENI1I40 
NEATG 

I=8:NEXTH:D=0 


3 REM WON RECHTS NACH LINKS IN DER LETZTEN SPALTE 
4 FORH=1TO2:C=7: FORG=H+1TO6: IFBACC, GP=ATHEND=D+1 : IFD=4THEN16 0 
ı IFERCC,GPI<HATHEND=B 


C=C-1:NEXTG:D=8:NEXTH:D=@ 


A=A+1: IFA=3THENA=1 


IACTI=IAC PD+1:FORF=1T07: IFIACFI<7THEN1120 


NEXT 


REM UNENTSCHIEDEN 
PRINT" SINDSRINIMIMT 
aciı=scheidtl 
Cac23=Chl2yr+l 


3 GOTO1718 


rd REM GEWÖNNNEN 


PRINT"SIM 


EIN DAS IST EIN UNENTSCHIEDEN !" 


KISISISTETNISIEIRIN DAMIT HAT SPIELER" SR; "N GEWONNEH" 
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1698 CECAISCHIAI+Z2. 

1706 REM ANZEIGE DES NEUEN SPIELSTANDES 

1718 PRINT" SPIELSTAND: CRD": CHC23, IV 
1724 GETA$: IFAF<>CHR$CIS>THENI1 728 

1738 GOT03309 


ir4G PRINT" 6000000900049 4 

1756 PRINT" e++ VIER GEWINNT 46% 

1rsd PRINT" 0600000000000040904 

1778 

1780 

1730 N" SPCC293" SIKLRETURN>> 


1200 GETA$: IFASC>CHRSCIZ>THENISO 
181@ RETURN 


FEADT. 
HERD". 
18 DIMBAC?.,EI.-VECT).,HRKCTI. IE TI. BSCHICRL EI BET DE EEE DE DIT Ze" a 
20 B$i3)>="N SIE ":Bscld4)=" ICH ":BECSH=" SIninintainirininieinteieIeinimtnisinteisietnie : = 1 


.. 


308 TECLI=" BR": YECHH="IBBBRBRBBBBB N" : 7375 :='" EEREBUNBRHNERN" : 737 >='" BR" 

40 Y$c4)="IBBBRBBEBBBBRBBERBRT" : 7$27= " IBRBBBHBl" : YES) ="IRBRDRBBBRBRRBRBBRRBB N" 
r8 vw=V+1: IFV=3THENVY=1 
ee 2 
:NEHT:Z= 

aa PRINT"M": PRINT" mm mm" : 7 1° 1 1 | Lo: 7 Of) = 1 1 U2 


: NEXT 


118 PRINT" 3 ":NEXT:GOTO198 

126 PRINT" SAMEN" ; :PRINTYECTDSBSCAI:PRINTTFETDZBECAD : IFIACTD=6THENRETURN 

128 FORI=STOIZLTISTEP-1:PRINT"TTTV'TSCTP:Z$:PRINTYSCND ES: PRINT"MVSCTDSBFCAI:PRI 
MTr$i TI; B$CA): NEXT 

ig RETURN 

sa PRINTB$CS>" DAMIT HABE"B$CA+H2>2 "GEWONNEN" TCALAISCHIAI+Z 

660 PRINT" SPIELSTAND: VERDI GERD: MTTT 

170 GETAS$: IFAFTICHRECISNTHENIFO 

184 Z=1:RETURN 

139 IFR=1THENZEB 

zu I=4:G05UB120:BRc4, Ialaıa=2:1acdıe2 

2ia A=1 

22a GETA$: IFA$=""THEN220 

230 T=VALCA$I:IFIZIORT>TTHEN228 

240 IFIRCTI=7THENZ2B 

258 IFBRCT, TAUTDISZOTHENZE 

27a BRCT,IACTII=1: GOSUB120: M=4: GOSUP3EB : IFZ=1 THENTFB 

250 IacT3=IacTd+1:FORI=S1TO7: IFISCII<SFTHENSOB 

220 NEXT:GOTO3S3O 

>09 GOSUB3SE: BACJ, IACTII=2:GOSUR128: M=4 : GOSUPIER: IFZ=1 THENVO 

>18 IACTD=IRCTD+1:FORI=S1TO7:IFISCIDL7THENZ1R 

220 NEX&TI 

330 PRINTB$SCS2" DAS IST EIN LINENTSCHIEDEN !" 

348 CHl1ISCAHE DHL: CACEI=CH 2341: GOSUB1E0: IFZ=I THEN?O 

350 7% 3:A=2:x=8 

368 D=8: FORG=1T06: FORC=1TO?: IFBACC,G>=ATHEND=D+1 : IFD=MTHENGST 

Sara IFBACC.G>L>ATHEND=O 

388 NHEXTC:D=8: NEXTG: D=o: FORC=1TO7: FORG=1 TOE: IFBACC. GP=ATHEND=D+1: IFD=MTHENIST 
330 IFBRtiC.GP<>ATHEND=O 

480 HEXTG:D=A:NEXTC: D=9: FORH=1T04:C=H: FORG=1T06: IFBZCC. G)=ATHEND=D+1 : IFD=MTHENS 


470 


IFBER<C, G><S>ATHEND=O 

L=C+1:1IFÜE=STHENM4E 

NEXTG 

D=8: NEXTH: D=8: FORH=1T02:C=1: FORG=H+1T06: IFBACC., G>=ATHEND=D+1 : IFD=MTHENI9B 
IFB@CC,G>S>ATHEND=B 

C=C+1 

NEXTG: D=8: NEXTH: D=8: FORH=FPTO45STEP-1:C=H: FORG=1T06: IFB2CC. GP=ATHEND=D+1: IFD= 


MTHEH1108 


480 
430 
598 
518 


IFB@CC.G>S>ATHEND=A 

C=C-1: IFC=OTHENSIE 

HE»TG 

D=8: NEXTH: D=G: FORH=1T02: C=7: FORG=H+1T08: IFBR CC, G>=ATHEND=D+1: IFD=MTHEN1 220 
IFBRCC.GI<C>ATHEND=0O | 
5=0-1:NEXTG:D=0:NEXTH: D=@: IFM=4THENRETURN 
IF&=BANDM=3AHDA=ZTHENM=2: GOTOFSE 
IF&=BANDM=ZANDA=SZTHENZIZR 
IFS=GANDM=SANDA=1THENM=2:GOTO3SO 
IFK=SANDM=ZANDA=1THENZSEO 
IFk=1ANDM=2ANDA=ZTHENA=1:GOTO360 
A=2:£=2:FORI=1T07: IFHACTD=SBANDIACTHZ7THENS10O 
MERT:GOTOE4E 

J=IHTERNDEIDKT+13: IFISCTDS6THENG1O 
IFH=CTPSPOTHENE1O 

GOTO1S68 

FORI=1T07: IFHAXT>=AANDISCITP<STTHENI=1:GOT019658 
ED RIESE Nele 
HEXT 

IFM=4THEN158 

IFR=1ANDBAC4,G9=2THENS6EO 

IFA=2ANDBAC4.G>=1THENSER 

IFM=3THEN1330 

IF%=1THENZ2218 

IFC>STHENSGB 

IFB@<C+H1.GIPS>OTHEN?IB 

IFG=1THEN?38 

IFBACC+2, GP=AANDBR CC+1, 6-13 SPOTHENJ=C+1:GOTO1864 
IFBRCC+Z, GP =AANDEGSZORBE CH, G-ZI<C>> THENHA SCHI SA 
GOTO7?20 

IFBR<CC+2, 13=ATHENI=C+1:GOT01368 

IFCZ4THENSSE 

IFB=CC-2,03S>OTHENSEB 

IFG=1THENSSO 

IFBACC-23, OO=AANDBECC-2.G-1 > <S>PATHENT=C-2:G0T01865 
IFBRCC-3, G>=AANDIG=SZ0ORBE CC-2, 6-23 CO) THENHACC- 29ER 
GOTÜSER 

IFBRCC-2, 1 3=8ANDBACC-3, 1 3=ATHENT=C-2:G0T01868 
D=8:6G0T0338 

IFM=4THENISO8 

IFM=3THEN1460 

IFs=1THEN1938 

IFC>SORG>4THENI4O 

IFBr<C+L,G+1) CDOTHENI4O 

IFBAUC+Z, GHZ) =SAANDBR SCH, GPTIOTHENI=C+1:GOTO1860 
IFBr<C+2, G6+2)=AANDBRCC+HL.G-1>CPOTHENHACCHI=R 
IFGS4THENISO 

IFBRCC-2,6-ZI3<X>8THENISO 
IFBRCC-3,6-9=AANDBRCC-2,6-3><C5BOTHENJ=SC-2:G0T0186A 
IFBRCC-3,.6-3> =AAND G=40RBALC-2, 6-4) CHA THENHACC-ZI=R 
D=8:G0T0424 

IFM=4THEN158 


18gG IFM=ZTHEN1SSE 
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‚aid 
1020 
1030 
1046 
19581 
1068 
187 
1808 
198 
ı1lcd 
1110 
1128 
1158 
i14 
1158 
ilee 
117 
1186 
1198 
1200 
1218 
1220 
1234 
1240 
1295 
1264 
1270 
1284 
1298 
1304 
1318 
1328 
1334 
1346 
1354 
1364 
1376 
1356 
1396 
1440 
1416 
1428 
1436 
1440 
1458 
1460 
1476 


IFG=&THEN1O58 

IFERCC+1,G+13<>8THEN1OI0 
IFERSC+1,GP<SF8THENT=C+1:G0OT01858 
IFB#CC+1,6-12<>OTHENHR CHI =A 

IFC=3THEHN 1098 

IFERCC-3,6-3?<C>O8THENI O2 
IFEACC-3, 6-4 ><>BOTHENT=C-3:GOT01S68 
IFG=SORBACC- 3, 6-53<C>0THENHRIC- 33 =A 
I=4:60T0468 

IFM=4THEN1SO 

IFM=2THENI6E0 

IFC=10RG=5THEN1168 

IFEA<C-1.6+1>X>OTHEN1 168 
IFBALC-1,GI<S>OTHENI=SC-1:G0T01868 
IFERCC-1,6-1><X>OTHENHRCC-1?=A 

IFG<4THENI1Z10 

IFEZCC+3,6-3>S>OTHEN1210 
IFG=4THENI=C+3:60T01S68 
IFEACC+H3, 6-43 X3OTHENI=C+3:GOT01868 
IFG=S0RBR ICHS, G-SI<CATHENAR CC+3 = 
D=4:60T0498 

IFM=4THEH1S5O 

IFM=ZTHEN1768 

IFG=&THEN1288 

IFE#CC-1,6+12<>OTHEN1250 

IFE#CC-1, GI<>OTHEN I=C-1:G0OT01869 
IFER<SC-1,6-1><X>8THENHHRCC-1>A 

IFC=STHENI 320 

IFERIC+3.6G-3>C>ATHEN1320 
IFBACC+3,G-4>>BTHENT=C+3:6G0T018608 
IFG=SORBACC+3, 6-5? <DATHENHA CHF? =A 

D=8: 6070530 

IFC=7’THEN14088 

IFG=1THEN1330 

IFEZCC+H , G3=BANDBRCC+H1,G-13><SZBTHENJ=C+1:G0T015680 
IFEZCC+1,6-23 Z>BORG=ZANDBA CC+1, 13>=BTHENNMCC+HLI=A 
GOT01399 

IFE#<C+1. 1>=OTHENI=C+1:GOT01968 

IFC<4THENI145O 

IFG=1THENI44E 

IFBACC-3, G3=BANDBACC-3, 6-12 C39THENI=SC-3:G0TD1560 
IFBACC-3,6-2 3 <SPBORG=ZANDBR ÜC-3, 13=BTHENHACC-3)=A 
GOTO1458 

IFERCC-3, 1 3=0THEN J=C-3:GOT01560 

D=6:G0T0339 

IFC=FORG=&THEN1508 

IFBACC+H1.G+1><S>OTHEN1598 
IFERCC+HL,GPSZOTHENT=C+1:GOT01368 
IFEZCC+1,6-1>X>8THENHACC+H13=A 

IFG=3THEN1550 

IFEA<CC-3,6-33>9THENI SS 
IFG=4THENJ=C-3:GOT01868 
IFEALC-3, 6-43 S>OTHENJ=C-3:GOT013689 
IFG=5SORB# CC-3, 1 PXDOTHENHACC- 33 =A 

D=4:G0T0420 

IF%=1THEHNZ99G 

IFG>4THENI61E 

IFBASC+1,G+1><>OTHEN16108 

IFBACC+Z, G+23=AANDBACC+1., GI<S>BOTHENJ=C+1:GOTO1868 
IFBACC+2, G+23=AANDBZCC+H1,G-1P<C>OTHENHASCHLI=A 


a IFCS4THENIESBO 


16220 IFERCC-2.6-23£>8THEN1650 
1623 IFERCC-3, 6-37 =AANDBA CC-2. 6-3 CBTHENI=C-2:GOT01868 
1648 IFB#CC-2. 6-2>=AANDERCC-2.6-4)CHATHENHRCC-2)=A 
1654 D=9:60T0460 

1620 IFs=1THENZOTE 

era IFCZ3ORGF4THENI1710 

Isa IFE@SCC-1.G+123<X>BTHENI718 

1634 IFERCC-2,G+r23=AANDBACC-1.G><>BTHENT=C-1:GOT01860 
ı17ac IFERCC-2.6+2>=AANDERCC-1,.6-1>S>RATHENHRCC- 1A 
1rıa IFGZ4THENI7SE 

1728 IFERCC+2,0-2><58THENI1 758 
1734 IFEACC+3,6-3>=AANDBACCHE, G-3> CHBTHENI=C+2:G0OT01868 
IFB#CC+3, G-2>=AANDSG=S4ORBACCH2, G-4 3X THENHAICHEISR 
D=4:G0OT04908 

IFA=1THENZI4 

IFG>4THENISIE 

IFERCC-1,6+1 > >OTHENI1S18 
IFERCC-2,G+23=AAHDBACC-1, GI COTHENI=C-1:G0T01868 
IFBRCC-2, G+23=AANDBACC- 1, G-13C>OTHENHACC-1)=R 
IFC>ATHENISSE 

1220 IFBRCC+HZ,0-Z>>OTHEN1958 

1329 IFBR6C+H3,6-3>=AANDBATCH2. G-3><SPBTHENI=SC+H2:GOT01868 
1242 IFEACC+3., 6-3) =AANDERICHE,G-4 3 <CHATHENHACCH2I=R 
18560 D=8:60T0530 

1864 FORI=1T07:HACITI=O: NEXT: A=2: RETURN 

1872 IFM=4THEN1SO 

ı1saa IFI@CC9=PORG=M+3STHENAOO 

1820 IFERCC.G+12<D>OTHEN4BO 

1204 IFM=3THENI=SC:GOTO1SSE 

1210 IFS=1ANDHZCCH=BTHENJ=C:GOTO1368 

1720 GOTO4AO 

1330 IFG>SORC>STHEN1960 

1240 IFBRCC+H1.G+1YZ>OTHEN1268 

1354 IFERCC+1, G3<X>BANDHACC+HL I=BTHENJ=C+1:GOT01868 
19&40 IFGISORCTSTHEN19FG 

1978 IFBACC-2,6-2><>9THEN1998 

1954 IFCBERCC-2,6-39<>E0RG=3>ANDHACC-2>=8THENJ=C-2:G0T01868 
1936 D=8:G0T0429 

zB04 IFG=&THEN20O38 

zala IFERCC+H.G+H1Y2<SZBTHENZO38 

za20 IFERCC+1,GH<>BANDHRCC+1I=OTHENJ=C+1:G0OT01368 
za32 IFC=ZTHENZOSA 

za4c IFBACC-2,6-2>C>OTHEN20E0 

zaS5a IFBRCC-2, 6-3 SDBANDHACC-ZI=BTHENJ=C-2:G0OT01868 
2064 D=:GOT04EO 
2078 IFC=10RG=6THENZ2108 
2054 IFEZCC-1,6+12<>BTHENZ100 
zus0 IFERCC-1.6G3<S>BANDHECC-19=BTHENT=C-1:G0T01868 
ziaa IFGC3ORC>STHENZ2138 

zila IFBRCC+HZ, 6-23 S>OTHEN213A 
2120 IFCBACC+H2,6-3>O80RG=3P ANDHRCC+2>=B8THENJ=C+2: GOT01868 
2130 De: G0T0439 
2144 IFG=6&THEN2170 

2150 IFERCC-1.6+1><>OTHEN2178 
zieca IFERCC-1, GP <S>OANDHRCC-1>=98THENI=C-1:G0T01860 
zira IFC>STHENZZUE 
2139 IFBACC+H2.6-2>SD9THENZ208 

2138 IFEACC+H2, 6-33 S>O@ANDHSCC+HZP=BTHENI=C+2:GOT01864 
2203 D=8:60T0538 

2218 IFC>&THEHZZTE 

222a IFG=1THEN22SO 


a ar a 


> 
co 00 
m» 
IRRE) 
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a ‚G3=BANDERICH. G=1><>OANDHACCHLI=OTHENT= C+1:GOT01968 
226 

IFBA<CCH, 1I=GANDHHCC+HL>=BTHENJ=C+H1:G0T01868 

IFC<3STHENZS1G 

IFG=1THEN230G 

IFERCC-2, GP=GANDBATC- 2. G-1 > SPOANDHECC-Z3=8THENI=SC-2:G0OT018689 
GOTO2318 


IFEZCC-2, 1 >=BANDHACC-23=BTHENI=SC-2:G0T0186E 
4 D=9:60T0386 

FORG=1TO6 | 
= IFBAC4,G)=8ANDBAC3, G>=AANDBACS, GP=RANDBAC2, GP=BANDRA 6, GP=BANDHRS4I=GTHENZ 


IFEA<C4, GY=AANDBAC3, Gd=OANDEAC2, GI=AANDBR CL. G>=OANDBA (5,6? =OANDHRCII=OTHENZ 
IFBRC4, GY=AANDBACS. GIY=GANDBR 6, G9= =AAHDBACT, GP=BANDBRC3, G>=BANDHACSI=OTHENg 


& NE#T: IFA=2THENA=1:M=3:G0OT0360 
= #=1:R=2:60T0368 


IFG=10RBRC2,G-12CH SANDER (6, 6-13 <S>OANDBA CH, G-1 I SPOTHENJ=4:GOTO1S65 
IFERC2.G-1><>OANDBR LS, G-13>C>OANDIG=SZ0ORBR 04, 6-23 > THEHHRCHISA 
GOTO2342 

ee 13 >0ANDERCH, G-1>< 3 8ANDBACS,G-12<C>OTHEHJ=3: GOTO1868 


3 GOTO2S 


IFGTORB: X3,6-13X>GANDEACS. G-1IC>OANDBELT,G-1)C>OTHENJ=5:G0T01860 
2 60702342 2 


Adressbuch 


PET als Adressbuch 


Mit diesem Programm machen Sie Ihren PET 
zum Adress- und Telefonbuch und ersparen sich 
damit das lästige Nachlättern in Notiz- oder 
Telefonbüchern. 


Sie geben einfach den gesuchten Namen ein und 
erhalten augenblicklich Vor- und Nachname, 
Strasse, Wohnort, Telefonnummer und auf 
Wunsch auch den Geburtstag, die Hobbies, 
Fahrzeug und sonstige Informationen der ge- 
suchten Person. Sollte dieser Name nicht in der 
Kartei enthalten sein, so ist das für Sie nur ein 
Ansporn, ihn derselben sofort einzuverleiben. 


Mit diesen Befehlen können Sie Ihre Kartei 
steuern: 


DARK Verdunkelung des Bildschirms (nur für 
PET 2001). 

HELL Hebt obigen Befehl auf. 

SUCH Startet Suchprogramm. Sie geben den 
Namen ein und erhalten sämtliche ge- 
speicherten Daten, sollte es sich hier- 
bei um den falschen Namen handeln, 
sucht das Programm weiter. Auf 
Wunsch können die Daten auch ausge- 
druckt werden. 

LIST Listet alle gespeicherten Namen. 
SAVE Sichert die Datei vor dem Zugriff 
nicht berechtigter Personen. 

SICHERN Speichern des Programms auf Kas- 
sette. 

STOP Unterbrechung des Programms. 

HELP Ausdrucken der Befehlstabelle.. 


Am Anfang des Programms wird es vor der 
Unterbrechung durch die RUN/STOP-Taste ge- 
schützt (Zeile 1). Danach fragt es nach der Code- 
Nummer des Abfragenden. Ist dieser berechtigt, 
so fährt das Programm fort und wartet auf einen 
Befehl. Ist die Code-Nummer falsch, so wartet es 
solange, bis die richtige Nummer eingegeben 
wird. Es besteht die Möglichkeit, mehrere Per- 
sonen als berechtigt zu erklären, indem man 
zwischen den Zeilen 68 und 75 eineentsprechen- 
de Entscheidung einfügt. 


Beispiel: 


65 IFR3="NAME2 "THENRT3NAME2 :RR$ 
="TEILABFRAGEBERECHTIGT ":QW=0: 
GOTO80 


Die Daten werden ab Zeile 10000 in DATA- 
Statements abgespeichert, und zwar in der 
Reihenfolge: 


NACHNAME 
VORNAME 
WOHNORT 
STRASSE 
TELEFON 
IGEBURTSTAG 
HOBBIES 
FAHRZEUG 
SONSTIGES 


Um Fehlermeldungen zu vermeiden, darf die 
Zeile 60000 nicht gelöscht werden. 


ı Q=144:W=43: IFPEEK<C508637 =BTHENG=537:W=136 
2 FOKEQ,W 


3 


PRINT "" TDNDDRIKDE 
FORA=1T05908 : NEXT 
PRINT""; IR$="" 
PRINT"GEBEN SIE I 


“DATEI 


HRE CODENUMMER EIN!" 


GETE$: IFE$=""THENSI 
IFE$=CHR$ (13) THEN6Q 


R$=RF+E$ 
GOTOS1 


IFR$="NAME" THENRT$="NAME" RR$="VOLLABFRAGERBERECHTIGT" :QW=88:GOTOS8 
QW=8:PRINT"SIE SIND NICHT BERECHTIGT! !":R$="":GOTOSY 


59 


60 


88 FRINT"SIE SIND ";RT$:PRINT"SIE SIND "IRR$ 


R$="":GOSUB 580 

IFR$=" DARK" THENPOKESFERF, 52: RF="":GOTO100 
IFRF="HELL"THENFOKES348F, 60: R$="":GOTO108 
IFRE="SUCH" THENR$="":GOSUB5SS9:GOT01A8 

IF R&$="SICHERN"THENR$="":GOTOZ008 

iF R$="LIST"THENGOSUBI1ROE:GOTO1OO 

IF R+="SAVE"THEN4I 

IFR&="STOP"THENSTOP 


2 PRIHT"SYNTA» ERROR" :GOTO1OS 


Pi=167:IFPEEK(SO003)=ATHENPI=548 
R$="":POKEP1.8 


* GETEF: IFE$=""THENSOZ 


IFEFSCHRFCISPTHENFOKEP1. 1:PREINT" M:RETURM 

IFEF=CHRE$ ZB) ANDLENCREITZETHENFRINTEF:GOTOSEI1 

IFEF=CHRE ZU THENR$=SLEFTFCRF. LEHCR$ >12: PRINTE$; :GOTOSO2 
FRINTE$; :R$=RF+E$: GOTOSOE 

REM SLICH 

GT=&:PRINT"TBUCHEN EINER NAMENS" 

GÜSUBSER 

RESTORE 

RERDNH$ 

IFNM$="ENDE"THEN?SO 


= READYN$,ST$, WOF,TEF.GEF. HO$. FR$.50%F 


IFRE<PNNSTHENGO1 

GOTOSAA | 
PRINT"TSUCHEN EINES: NAMENS" 
PRINT"MGESUCHTER NAME:".R$ 
PRINT"IHACHNAME :";NNS 


PRINT" VORNAME SH IYNE 
PRIHT"WOHHORT 1; 4N0$ 
FRINT"STRASSE :N3ST$ 
PRIHT"TELEFÜN :":TE$ 
IFAHUSFSETHENESE 


FRIHT"BWEITERE ANGABEN?" 


IFR$=" I"THENYOO 

IFR$="N"THEN?SS 

GOTORSZ 

a EMS LlERe ANGAFEN NUR AN BERECHTIGTE SPERSONEH TE" 
[2 

PRINT" WGERBURTSTAG: ";GE$ 

PRINT"HORBIES "HOF 

PRINT"FAHRZEUG :";FRAF 

PRINT"SONSTIGES :";50# 


 GOTO?S5 
IFGT=6THENPRIHT"MOIESER NAME IST HICHT IN DER KARTEI EHTHALTEN. M" 
IFGT=1THENPRINT"SDIESER NAME IST SONST NICHT IH DER KARTEI ENTHALTEN. MM 
GOTC795 


PRIHT"WOLLEN SIE DIE DATEN AUSGEDRUCKT?" 


ı GETR$: IFR$=""THEN?S6 


IFR$="N"THENTPS 
IFR&<>"J"THENTSS 
OPEHi,S5:PRINT#L.NH$PRINT#1, YN$:PRINT#1. ST$:PRIHNT#1. WO$:PRINT#1.TE$:PRINT#I 


i PRINT"MWMOLLEN SIE ALLE DATEN AUSGEDRUCKT?" 
: GETR$: IFR$=""THEN?EZ 


IFR$="N"THEN?FB 
IFRE<H" T"THEN?EZ 
FRINT#1.GE$:PRINT#1. HO$: FRINT#1. FR$:FRIHT#1.50$ 


rag FÜRA=1TO18:PRINT#1:NEXTA 

"31 LCLOSEI 

"35 PRINT"MWOLLEN SIE NOCH DATEN EINER ANDEREN 
96 GETTR$: IFTR$=""THEN?9E 

97 IFTR$="J"THENSSO 

33 IFTR$="N"THENPRINT"T":PRINT"BEFEHLER" RETURN 
29 GOTO?7EO 

sag PRINT"SUCHEN EINER. NAMENSM" 

sid FRINT"SMGESUCHTER NAHME:",R$ 

sed PRINT"NNACHNAME :";NN$ 


2:8 PRINT"WORHAME IN ZNNS 
242 PRIHT"WÖOHNORT N ;WOF- 
= PRINT"STRASSE N IST$ 
>60 PRINT"TELEFON :;TE$ 


s N DIES DAR. GESUCHTE NAMEN?" 
371 
5384 GETOF: IFÜF=""THENSSO 
E83 IFOF="T"THENSEI 
se4 IFOF="N"THENGOI 
385 GOTOSS8 
1866 FRINT"TLISTEN ALLER NAMEN" 
1856 PRINT"M":AS=G:RESTORE 
ilas READNNF 
11ic IFNN$="ENDE"THEN1S08 
112G RERADWNS$,ST$. WOF,TEF, GEF. HOF, FAF,SO$ 
1284 PRINTNN$, WN$ 
1203 AS=AS+1: IFAS=2BTHENAS=H:GOTO12S0 
1212 GOT0O1108 
229 GOTOI1OO 
125 PRINT"MWEITER?" 
1260 GETRE: IFR$=""THEN1268 
1265 IFR$="I"THENIAOB 
127a IFRFS>"N"THENI1260 
i1zc2M PRINT"BFERTIG?" 
1294 GETRF: IFR$=""THENI23C 
1295 IFR$="J"THENPRINT"I"; :PRINT"BEFEHLEM" RETURN 
1296 IFR$Z>"N"THEN1298 
1237 GOTO12928 
1508 PRINT"NENDE" :GOTO1286 
zaat PRINT"TLEGEN SIE EINE ZURUECKGESFULTE CASETTE 
zEid FRINT"DRUECKEN SIE “PLAT’UND’RECORD’. " 
zu20 IFPEEK<S9411>=61THENZBZO 
za52 PRINT" EBBIOK" 
2840 SAVE"DATEI" 
2045 GOTOI 
2658 PRINT'"TIBEFEHLEM" :GOTO10G 
saaceı DATANACHNRAME . VORHAME , STRASSE, WOHNORT , TELEFON 
ıisaci DATAGEBURTSTAG, HORB". FAHRZEUG. SONSTIGES 
ug DATR"ENDE" 
m Ti 


PERSON WISSEN?" 


EIN." 


61 


62 


NOTIZEN 


Konto 99 


KONTO 99 


Dieses Programm, zeigt wie man eine brauchbare 
Software aufbaut und sie so gestaltet, daß der 
Benutzer im Dialogverkehr damit entlastet wird 
und immer weiß, was er gerade zu tun hat. 
Wichtig ist auch der Aufbau eines ansprechenden 
Displays für die Eingabe. Dazu sind einige 
“Tricks” im Programm enthalten, die erklärt 
werden sollen. Vermieden wurden alle Ma- 
schinenroutinen, man kann also auf alle BASIC- 
Maschinen damit arbeiten. 


Geschrieben wurde auf einer CBM 3032, CBM 
3040 FLOPPY, CBM 3022 DRUCKER. 


Im Einzelnen: 


Zeile 5 schaltet die STOP-Taste des Rechners 
aus. Man kann also durch versehentliche Be- 
tätigung derselben nicht aus dem Programm 
“hinausfliegen “. Mancher wird sich ferner schon 
gegiftet haben, wenn er bei einem INPUT- 
Befehl vergessen hatte, etwas einzugeben und 
gleich die RETURN-Taste drückt. Dann ist er 
draußen. Hier geht das nicht. 


In den INPUT-Befehlen werden nach dem Text 
drei GESHIFTETE LEERZEICHEN gegeben, 
gleich gefolgt von drei CURSOR-RETOUR. Für 
eine Numerische Variable. Für eine $-Variable 


kommt noch dazu. 'IF{N)$=" "THEN PRINT” 
(2x Cursor hinauf) "GOTO xxxx (Zeile des 
Input-Befehls. Das Blank vor "THEN "muß eben- 
falls geshiftet sein. 


Bei anderen Druckern*muß evtl. abweichende 
Ausdruck-Formatierung (Zeilen 1700 — 1760) 
korrigiert werden. 


4 POKE182,8:REM BLÜCKADE DER HELP-DOS REPET-FUNKTION INDIVIDUELL !>3aakakık 
> POKE144,49:REM BLÜCKADE STOP-TASTERKRHEH 
5 FÜKES9468, 12:REM GROSS-SCHRE IBUNG kalck 
3 FOKE182,8:REM WIE 4 CSICHERUNG !> lack 
18 PRINT'WKONTO 4 D-9SCR: ING.F. TILGNER, 
28 PRINT" 

34 PRINT"MIT SPEICHER, SUMME, DATUM, SALDO, DRUCKE" 

32 PRINT"#ALLE KONTENFUNKTIONENE <NEG. SALDO !3%" 


WIEN 1979 


a 1 a 2 € 2 EEE TEE EEE ÄNEIEETTEETETITETE 

52 PRINT" WVERBOTENE ZEICHEN : a, : ANF.ZEICH. ®@" 
68 PRINT" FÜUER 1098 POSTEN " 
Rn 

38 PRINT" d ABHEBUNGEN @ 3-8 SWORZEICHEN® RT 


39 REM DIMENSIONIERUNG (BELIEBIG HÜCH-SPEICHERFRAGE ! > 
28 DIMD&C1903:DIMA$C180):DIMB$C 180) : DIMAC1883 :DIMSC190) 


159 at ————'!! 

119 Yl$="====2===2===" 

12a CRS=CHR$CIZ) 

199 GOSUB 428 

193 REM EINGABE UND RECHENROUT INENIEKEKHH 

zB INPUT" MAMONAT sum"; M$: IFM$=" "THENPRINT"TITI:GOTO 208 
285 INPUT" AUSZUG HR. um" :;R$: IFR$=" "THENPRINT"'TI" :GOTO 205 
218 INPUT" KOHNTOSTAND IBBI";K 

212 W=K:GOSUB 1086: K$=H$:H$="Q" 

228 GOSUB1008 

248 I=1 

242 PRINT 

244 PRINT"TIA EING.ENDE:9 a oB MAEHBG. - BEINZ. + ! 


63 


64 


PRINT" SBEDAT. ESSBEZEICHNUNG BESBETRAG — 


PRINT"TRET.* RET.* RET.+ 

2.2 Er a EEE. EREENEE 

INPUT" BE" SDSCID:IFDECIH=" "THENPRINT" 77°:G0T0 258 

INPUT" TO Bam" ;AFCID:IFAFCII=" "THENPRINT"TY:GOTO2S2 

INPUT" 7 BE" ;ACTD: IFACTS=BTHENFRINT"TTI" 
ScI>y=SCI-1>+AK1H:5=5C 13 :6G05UB1100: IFDSCI><SS"O"THENI=I#+1: PRINT: GOTO258 


N=$ : GOSLIB1009 : S$=H$ : N=K-VAL(S$) !W=N: GOSUB1AGB: N$=H$ :PRINT"IIN":GOTO 608 
REM BEFEHLSABFRAGE HER 

REM BEFEHLS-AEFRAGE 

PRINT"MAISNITIALISIEREN ? NEIN %* SAMUSSTEIGEN" 

GETZ$: IFZ$<C>" "ANDZS<CH"N"ANDZSCH"A"THEN 492 

IFZ$="A"THEN 2000 


IFZ£="I"THEN 1960 
PRINT"MTEILKONTO:ALBESEN, SSBPEICHERN. SMDBRLICKEN. — jEBRORENZEN, 
PRINT" 4 NBEUES KONTO,  SZBEIGEN >" 


GETZ$: IFZFSI"L" ANDZFSH"S"ANDZ$SCH" D"ANDZSTCH "E"ANDZFSP"N"ANDZFSH"Z"THEN 320 


IFZ$="L"THEN 15608 

IFZ#="S"THEN 1408 

IFZ$="D"THEN 1700 

IFS>OTHENKF="S -" 

IFSLOTHENAF="5 +" 

IFZF="E"THEN FRINT" IM :S$="0" N$="0":G0T0 284 
IFZ$="N"THEN A$cI2="B":B$CI2=" 0" 5F=t a" Et et" GOTO Zac 
IFZF="Z" THENGEB 

EHD 

REM BILDSCHIRM-FORMAT TERUHNGISRERE 

IFK>OTHENK$="S +" 

IFKSBTHENKSF="5 -" 

PRINT"ISAE AUSZ.NRE "MSTABCSEIKFTABCHI-LENCKEIGKE 
PRINT" en 
FORI=1TO108 

PRIHTD$SCINTABEHHASCTN 

IFACID<OTHENKF="S -' 

IFRCIS>OTHENKF="SE+" 

PRINTTABCZEIR$:: IFDFCII="O"THEN 6858 
FRINTTABCE33-LENCBFCIDIIESCIH:IFI=S108 THEN 658 
GETA$:IFRFI>" "THEN NEXTI 

PRINTTFEE SFORTS.E, SEFACEE SSTOPM, SROLL-ENDER 328" 
GETAF#: IFX$="F"THEN NEHTI 

IF%$=""THEN 636 

IFA$="Z"THEN 650 

PRINTTABCZII TE 

IFW>BOTHENMS$="5 -" 

IFWLOTHENS$="S +" 

PRINT"SUMME AEHBG. C-I/EINZ. CHE" TABT SEIRFTABCSI-CLENG: SEISNZE 
PRINT" 

IFN>OTHENKS="S +" 


; IFN<BTHENKS="S -" 


PRINT" SAKT.STAND:E "METABCZEIASTABC339-LENCNFIONE 
PRINTTABCZIIYIF 
GOTO 498 


END 
REM RUNDUNG UND ERGRENZUNG CBIS 11903 kalck 


1808 L=ABSCW}:A$=STR$CLI: TSL 

1810 H$=5STR$CINTCTII ES HE=H$+".":JSINTOIOBRCI-INTET2+. 2 
ia20 IFJ=OTHENH$=H$+"08":GOTO1068 

1850 IFTZ39THENJ=SVYALCHFI+1:GOTO 1018 

1848 C$=5TR$CJI: IFLENICHI=ZTHENHSSH$+H"" 

1050 H$=HF+RIGHTSCCH,LENCC$H)—-1) 

1860 RETURN 


END 

L=EABSCHCIII:BSCII=SSTRECLI: T=L 
BECHISSTRECINTEND) Bi Dept I34+".": T=SIMTOOOECOT-INTCET9+.9 
IFT=OTHENB$CID=BS CT +" E":GOTO11609 


a IFrI>S S3THENISYALCBSCIDDHL: GOTO 1118 

B CH=5TRECTI: IFLENCCFISZTHENEFCTI=SBE IH "0" 

1 B$CI3=Bl D+RIGHTFCCH. LENSCHI- 1) 

1 RETURN 

a ENI 

= REM SEGU.FILE SCHREIBEN KER&% 

a INFUT"TINSSTORER: KONTO-KHRANE IB" :F&:IFF£=" "THENFRINT"TTTT:GOTOIGOR 


INPUT"MDISK IN IR.HR (8.12 1m" ;E: CLOSE4 
CLOSE4: OPENd. 8,4, "@"+STREIEIH+" "HF", 5,4": Is 
CLOSE15:0PEN13,8,15:GO5SUR 1500 


a PRINT#4,M$:CRFIRF:CRF:STREFCKIGCRSSSTRFCOHSSCREFISTREFCHI CR 
a PRINT#4, DSCIDSCRSSASCIDSCRFSBSCTDSCRFISTRECAC TISCHE STREISCIIDICHE 


IFD$CIIX>"O"THENI=1+1:G0OT01468 


= FRINT"S&STORED. OVERURITERB";F$; "7 ":GOSUR1EOO 
- FORJ=1T02500: NEXT 
4 CLOSE4:PRINT"T":GOTO ed 


END 
REM 5EQU.FILE LESEN KkE%# 
INFLUT"ZRMSLORDE:KONTO-HAME EB" :F$:IFF$=" "THENPRINT"TITY :GOTO1598 


A INPUT"DISK IN DR.NR (9,15 sum";c 

= CLOSE1S5:0PEN13.8,15:G0SUP168E 

a TLÜSE15:CLOSE4 

3 OPENd.S,4, STRELEIF+" "+F$+", SR" SOPEN1I,8, 15: PRINT"$LORDK "::GOSUJE 1ecd 


1544 INPUT#4, M$,RF.K,S.N 

1545 I=1 

1563 INPUT#4,DSCI2.ASEID,BSCID ACID, SCTD: IEDEE IHCOPB"THENI= I+1:G0T0:964 
1585 PRINT" $KLOADETKE";F$;"? ";:G0SUBIEAR 

1536 FORJ=1T92806 : NEXT: CLOSE1S :CLOSE4 


2 W=kK: GOSUB1800: K$=H$ : W=5: GOSUP1A08 : S$=H$ : W=N :GOSUFI AG: N$=H#:GOTO 608 


En RECHEN-VARIAELE IN DRUCK-VARIABLE VERMANDELH 344% 
N 

REM ERROR KAHFL RUFEN #4 

INFUT#15. EN$,EM$, ETF, ES$ 


3 FRINTEM£," "SEN$," "ETF" "ES 


IFEN$="BO"THEN RETURH 


a CLOSE15:CLOSE4:GOTO4IO 


REM AUSDRUCK-FORMAT FUER CEM 382273022) EEE 
OPENS „+4 
4 OFENG.4,1 
en, DE=CHR$CIY1? 
i G u 11 
ÜPEH?T ‚4,2 
Er EN AARAARAAAAARAAARAAARARARAARRAAAARAR" 

5, BE Fu en 08 
PRINT#I.08,2$;" KONTO #7: Bad aaa aa - AUSZ.NR: ";ZE:R$ 
PRINT#3.0$; " a 
LLOSE? 

ÖPEHT.4,2 
FRINT#7 .G$; "RARAARAAAA ARAAAARRARARAARAA AA 3333393. 39 


IFKDBTHENKS="S +" 
IFK<ATHENX$="S -" 
PRINT#E. 08: 2#; "AB AUSZ. NR" 2$:5M$5 28:88:26: K$ 


”8G PRINT#S.0$;" —l 1 DT 


CLOSE? 


3 OPENT”,4,2 
3 PRINT#7.G$: "ARA AAARAARRAARAARRAAARARAAAR AAR 993933399. 33 


I=1 
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READY. 


PRINT#6,D$CIY;Z$;A$CID, 
IFRCII>OTHENKS="S+" 
IFACII<OTHENKS="S -" 


PRINT#6, " MESIRSIEF:BSCII: IFDSCIISZ"O"THENI=I+1:G0T0 1920 
CLÜSE? 

PRINT#5, 08; SPC(48) Tr 

OPEN?,4,2 

PRINT#7 ,6$ ; "ARARAAARRAAARARRARRARRARAAAR HAAR 3933299. 39 


IFS>OTHENX$="S +" 

IFS<OTHENX$="5 -" 
PRINT#6.,0$8:G$; "SUMME: ABHBGN. (-I’EINZ. C#+r3" 23:43, 285% 
CLOSE? 

OPEN?,4,2 

PRINT#7.6$; "AARARAARAAAR AAARAAARARAARRAAAR AARA 99393933. 99 
ERINTHSSOSSr an 
IFN>OTHENX$="S#+" 

IFNZBTHENK$="5 -" 
PRINT#6,0$;6$; "NEU. STAND: "; 2$;M$; 2%; 43; 28; H$ 

PRINTRS US, BS 2000 220 ee Se ee ee nee 
PRINT#5, :PRINT#5:PRINT#S 

ER SEI 
PRINT"MMINITIALISIEREN. FACH NR Sam ’aim" 

GETDD$: IFDD$S<C> "BO" ANDDDFC>"1"THEN 1962 
CLOSE15,8,15:OPEN15.8,15 

IFDD$="1"THEN1978 

IFDID$="8"THEN1974 

PRINT#15, "I1":PRINT"TT'TAB(C28>"1" 

GOTO 1976 

PRINT#15, "18" :PRINT"TI'TAB<283 "0" 

CLOSE1S:PRINT"7":GOTO 588 

CLOSE1S:END:REM GESAMT AUSSTIEG Ki 


95 PRINT#1,L%#188/CKE-K8) :KB=KE :GOTOS® 
186 PRINT"MGESAMT-KM ";KB-KA:KO=K8-KR 
118 PRINT "BENZIN-L "SL 

128 PRINT "BENZIN-DM ";$SD 

138 PRINT "L/180KM ";100%*SL.’K8 
148 PRINT "DM/L ",SD/SL 

158 PRINT "PF/KM ",180%SD/K8 
178 IFNOTPTHEN284 

188 PRINT#1, "MGESAMT-KM ",Kö 

181 PRINT#1, "BENZIN-L "SL 

182 PRINT#1, "BENZIN-DM ",5D 

183 PRINT#1, "L’’100KM ",100%SL/K8 
184 PRINT#1, "DM/L ";SD/SL 

185 PRINT#i, "PF/KM ";198%SD/K8 


REM 
REM DEVYICE-NR. 
REM (ZEILE 16) 


Auto-Jahresabrechnung 


Auto-Jahresabrechnung 


Das nachfolgende Programm erstellt eine Jahres- 
abrechnung. Über Device 4 kann ein Drucker 
angeschlossen werden. Die Daten werden in 
DATA-Statements eingegeben. 

Die Reihenfolge ist zu beachten. 


500 DATA 88302 : REM Anfangs Km-Stand 
510 DATA 8892, 41,54, 35.27 


Km-Stand Liter Preis in DM 


Die Tankungen werden mit DATA-1 abge- 
schlossen. 


PRINT" AUTO - JAHRESABRECHNUNGM 
INPUT"DRUCKEN (J/ND ";RA$:P=R$="J" 


FUER DRUCKER HIER: 4 


IFPTHENOPENI1 4: PRINT#1:PRINT#1," 
READKR : Kö=KA 

38 PRINT" MANFANGS-KM 
IFPTHENPRINT#i , "MANFRNGS-KM 
SL=8:5D=8 
READKE : IFKE<KBOTHEN108 

READL ‚ DM: SL=SL+L : SD=SD+DM 
PRINTKE;L;SPC(S-LENCSTR$CLI?2; 


PRINTDM; SPC<S-LEN(STR$CDMI3D; 


810 DATA-1 
820 DATA 3, 19,95, 2.5, 20, 3, 19,95, 3, 1995 


\ 
3 Liter Ol|DM 19,95|2,5 Liter| 20,- 
830 DATA-1 


Mit DATA-1 kann auch die Oleingabe abge- 
schlossen werden. 

Anschließend können noch alle restlichen 
Kosten eingegeben werden. Siehe z. B. Zeile 
830. Hier gibt man einfach die Beträge ge- 
trennt durch ein Koma ein. Achten Sie bitte 
darauf, daß die Dezimalkennzeichnung als 
Punkt und nicht als Koma eingegeben wird. 
Am Ende muß dann wieder mit DATA-1 
abgeschlossen werden. 


AUTO - JAHRESABRECHNUNGM 


"3KA:PRINT"MTANKUNGEN CKM,L.DM.L/189KM) :M 
";KR:PRINT#1, "WMTANKUNGEN CKM,L,DM,L/1808KM) :M 


PRINTL#109/CKE-KG} : IFNOTPTHENKB=KE : GOTOSO 


PRINT#1.,KE;SPCCS-LEN<CSTR$CKE)DD: 
PRINT#1,L;SPCCS-LEN<CSTR$CLYD; 
PRINT#1., DM; SPCCS-LENCSTRSCDM))D; 


S0=8:5M=B:REM OEL 
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READO : IFO<OTHEN258 
RERDDM : SM=SM+DM: 50=S0+0:G0T0218 


PRINT"SDEL-L "50 

PRINT "OEL-DM ",S5M 

PRINT "L/1888KM ";1090%50.’’K9 
PRINT "OEL-PF/KM ";180%*SM/KO 
IFNOTPTHEN398 

PRINT#1, "MOEL-L ",S0 
PRINT#1, "DEL-DM ",5M 
PRINT#1; "L/1886KM ";1990%50’KB 
PRINT#1. "OEL-PF/KM ";180%SM/KB 


S0=8:REM SONSTIGES: VERS. ,REPAR. ‚ABSCHREIBUNG 
RERDO : IFO<SBOTHEN3S8 

50=50+0:G0OT0318 

PRINT" MSONSTIGES-DM ";S0:5D=SD+SM+SO 

PRINT" SGESAMT-KM "KB 

PRINT "GESRMT-DM ";SD 


PRINT "DM>MONAT ";5D7/12 
PRINT "GESAMT-PF/KM ";SD*188’K8 
PRINT 

IFNOTPTHENEND 


PRINT#1. "MSONSTIGES-DM ";SO 
PRINT#1. "MGESAMT-KM ";K@ 
PRINT#1, "GESAMT-DM ";SD 
PRINT#1. "DM/MONAT ",‚5D/12 
PRINT#1, "GESAMT-PF/KM ";SD#100/’KB 
a een 

REM REIHENFOLGE IN DATR-ZEILEN: 
REM i. RNFRNGS-KM-STAND 

REM 2. TANKUNGEN (KM,LITER.DM> 
REM 3. DEL (LITER,DM) 

REM 4. SONSTIGES (DM) 

REM POSTEN 2-4 KOENNEN MEHRERE 
REM EINZELBETRREGE ENTHALTEN, 
REM JEWEILS MIT NEGATIVER ZAHL 
REM ABSCHLIESSEN! 

REM 

DATR83302 
DATRS8605.,41.54, 35.27 
DATA88926 . 37.27,32.23 
DATRS2267 ., 40.094,37. 48 
DATR89I553, 48.08. 34. 75 
DATR89855, 33.20.28.89 
DATR9G114, 29.14, 25.32 
DATA99261.,15.78,13.49 
DATR90578. 27.73, 24.38 
DATA91914. 39.14.34. 79 
DATA31406., 41.05. 35.67 
DATAS1711.34.32,30.17 
DATA91949, 23.46. 21.10 
DATA92221. 22.52, 28.25 
DATR92562., 29.38, 26. 32 
DATRI2343., 38.28, 34.29 
DATA93283, 32.837,29. 22 
DATA93656 , 37.01. 33.64 
DATR94846.. 39.08, 35.53 
DATA94542, 41.68.38. 73 
DATR94952., 36. 42, 34.28 
DATR95341., 36.98. 34.35 
DATA95637 , 27.28, 25.55 
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IATA96057 , 48. 25, 38.20 
DATA96357,29.07,27.89 
DATA96688, 29.98, 29.27 
DATA96957 , 23.24, 23.47 
DATA9I7441.40.23,40.63 
DATA9I7848, 31.98. 32,25 
DATR98128, 21.49, 22.38 
DATAI8683, 33.89, 29.88 
DATA98983, 34.41.34. 77 
DATA99434 , 36.93, 37.38 
DATA99989, 48.21,48.61 
DATA180383,41.20,41.62 
DATA1088097,41.28,41.63 
DATA101892,29.10,29.48 
DATA191558,38.18,38.56 
DATA181798,22.47,22.69 
DATA192072,21.81.,21.22 
DATA192538, 42.09,42.08 
DATR102994,41.94,42.36 
DATR183318, 35.894,36. 20 
DATA103633, 38. 26, 38.57 
DATR183921,23.78,23.96 
DATA194342,40. 35.48.76 
DATR184714,40.08,48.48 
DATAR105933,39.59,39.98 
DATR195249, 26.47,27.00 
DATR105556, 25.98,26.49 
DATR105943, 35. 21.35.91 


DATA196823, 9.89, 9.18:REM LEIHWAGEN 


DATA-1: REM ENDE BENZIN 

DATR3. 19.95, 2.5, 28,3,19.95,3;19.95 
DATA-1: REM ENDE OEL 

REM SONSTIGES: REPARATUREN, STEUER, 
REM VERSICHERUNG, ABSCHRE IBUNG 
DATAS. 2, 796. 71,58.4,580.138.2,8,234 
DATAGE. 26.5,9,132,8.8,132.8,88.95 
DATA37.6,18.9,8.05,255.47,7.28 
DATR124.47,270.4,7.1 

DATA188 : REM CA. STEUER 

DATR1G68 : REM ABSCHREIBUNG 

DATR-1 


READY. 
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NOTIZEN 


Word Special 


WORD SPECIAL 


Es handelt sich hier um eine erweiterte und ver- 
besserte Version des Word Processing Program 
(WPP) von Connecticut microComputer. Das 
Programm läuft auf den Commodore Computern 
der Serien 2000 und 3000, falls diese mindestens 
16 K Speicher haben. 


Sämtliche Druckroutinen des Programms sind 
auf den Adcomp-X80 ausgelegt. Sie lassen sich 
jedoch mit wenig Aufwand auf jeden anderen 
Drucker umschreiben. Das Programm berück- 
sichtigt auch die unterschiedlichen Grafik-ROMs 
bei den verschiedenen CBM-Versionen. So muss 
man anfangs einfach die Art der Tastatur des 
Computers eingeben: 


Business (2) — Tastatur =2 
Grafik (1/3) — Tastatur = 1 


Das Programm korregiert dann automatisch 
sämtliche Ausgaben auf den Bildschirm, sowie 
sämtliche Eingaben von der Tastatur. Ferner 
wandelt es beim CBM-2001 die Zeichen-Codes 
um, so daß normal die Kleinbuchstaben und 
mittels Shift die Grossbuchstaben zur Verfügung 
stehen. Allerdings muß der Drucker auf den ent- 
sprechenden Computer-Typ umgeschaltet 
werden (mittels Dil-Schalter Nr. 6 auf der An- 
steuerungsplatine des Druckers). Dabei ist die 
Adresse des Druckers mittels der Dil-Schalter 
1 — 5 auf die Adresse 5 einzustellen. Andern- 
falls muß man in sämtlichen OPEN-Befehlen in 
den folgenden Zeilen die Geräteadressen ändern: 


8600 — 8900 
17330 
2400 — 24999 


Als nächstes gibt man dann die Uhrzeit in der 
Form hhmmss ein. Will man die Zeitvariable T1$ 
nicht ändern, oder ist die schon eingegeben 
worden und man fängt nach einem BREAK mit 
RUN neu an, so drückt man einfach Return. 


Will man das Programm nur auf einem Rechner 
einsetzen, so sind folgende Änderungen vorzu- 
nehmen: 


a) Grafik-Tastatur: 

Zeile 23000 — 24100 löschen 
8660 REM 

1099 REM 

Zeile 120 — 180 löschen 

150 TA=1 


b) Business-Tastatur: 

Zeile 120 — 180 löschen 
150 TA=2 

1099 GOTO 23000 

Zeile 1100 — 1415 löschen 
8660 GOTO 24000 

Zeile 8700 — 8790 löschen 


Dies spart Speicherplatz. Dies kann besonders 
den ’kleinen’ 16K-Maschinen vorteilhaft sein. 


Im folgenden sei '$ "die Abkürzung für ein Space. 


Besonderheiten gegenüber Original WPP 

1. Blinkender Cursor 

2. Fehlermeldungen in Inverse 

3. Repeat-Taste (Graffik-Tastatur: RVS-Taste 

Bussiness-Tastatur: + Taste 

Nach Drücken dieser Taste wird die 
zuletzt gedruckte Taste solange wie- 
derholt, solange die Repeat-Taste ge- 
drückt wird.) 

4. Programm läuft unverändert auf dem 2001 
und dem 3001 egal, ob Sie eine Grafik- oder 
eine Business-Tastatur haben Sie müssen nur 
anfangs die Art der Tastatur eingeben. 

5.Cursor hoch und runter, links und rechts 
werden als Eingabe nicht anerkannt. 

6. Bei Eingaben die länger als 150 Zeichen sind, 
erfolgt automatisch eine Warnung, d. h. jedes 
folgende Zeichen wird auf dem Bildschirm 
invers dargestellt. Bei mehr als 187 Zeichen 
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nimmt das Programm keine weiteren Zeichen 
mehr an. Ausnahmen sind Delete und Return. 


Gleiche Befehle wie WPP: 


c$/S1/S2/ Tauscht String SI gegen String S2 
in der entsprechenden Zeile 

d$n Addiert N zum Zeilenzähler 

erSN Löscht N Zeilen von der aktuellen 
Zeile aus 

f FRE(0): gibt den verbleibenden 
Speicherbereich an 

g93N Bringt Zeilenzähler auf N 

i Eintritt in Input mode 

| Lädt Textfile von Band 

m$3N13N2 Versetzt den Textblock von N1 bis 


N2 hinter die aktuelle Zeile 

pSN13N2SN3 Druckt N1 Zeilen, beginnend mit 
der aktuellen Zeile, N3 mal auf 
Gerät N2 aus 


r Ersetzt aktuelle Zeile durch die als 
nächste einzugebende Zeile 

S Nimmt Textfile auf Kassette auf 

t3N13N2 Schreibt N1 Textzeilen, beginnend 
mit der aktuellen Zeile, auf Gerät 
N2 aus 

usN Subtrahiert N vom Zeilenzähler 

x Druckt die Zeilenlänge der aktuellen 
Zeile aus 


Gleiche Direktiven wie WPP 


. ce3S Zentriert und druckt den String S 

.ISN Setzt Zeilenlänge auf N 

‚m3N Druckt N Spaces als linken Rand aus 

.Is3N Druckt nach jeder gedruckten Zeile 
N Leerzeilen aus 

‚nl 

.pa Wartet bis irgendeine Taste ge- 
druckt wird 

‚rc$N Wiederholt den String der folgenden 
Zeile N mal 

.sSK$N Druckt N Leerzeichen aus 

. Druckt und löscht den Ausgabe- 
Puffer 

35 Druckt und löscht Ausgabe-Pffer, 
bringt ein Space und den String S in 
den Ausgabe-Puffer 


ı6 REM 19795 ETTES 
13 REM 

13 REM 

38 FOKESPSOR, 14 


Zusätzliche und veränderte Befehle: 


w watch: druckt Uhrzeit auf Bild- 
schirm aus 
ESN Eingabe von Adressenfiles für auto- 


matischen Briefkopf-Ausdruck und 
Aufnahme auf Kassette N 
NE Löscht gesamten Text im Speicher 
I33N133Name Lädt Textfile Name von Gerät N1 
1333 3name Lädt Textfile von Kassette 1 
sSN13SN23SN33Name Nimmt Textfile von Zeile 
N1 an N3 mal auf Gerät N3 unter 
dem Namen Name auf. 
s3333Name Nimmt gesamtes Textfile unter dem 
Namen Name auf Kassette 1 auf. 


Neue Direktiven: 


.du$N Fertigt von jeder gedruckten Seite 
N Duplikate an. 

‚du keine Duplikate 

.P9SN Führt nach jeweils N gedruckten 
Zeilen automatisch einen Seiten- 
vorschub aus, trennt die Seiten 
durch eine Punktlinie und nummer- 
iert bei mehr als einer Seite die 
Seiten. 

.Pg kein Seitenvorschub 

‚ng stellt Drucker auf Normal-Klein- 
schrift um 

.nk stellt Drucker auf Normal-Grafik- 
schrift um 

.bg stellt Drucker auf Breit-Grafik- 
schrift um 

.bk stellt Drucker auf Breit-Kleinschrift 
um 

‚at druckt automatisch Briefkopf aus 
und holt Adressen von Band 1 

‚ae Briefkopfausdruck mit Adressenein- 
gabe von Tastatur, soll alte Adresse 
erhalten bleiben, einfach RETURN 
drücken 

‚wa$3N druckt und löscht Ausgabe-Puffer, 


druckt N Spaces, dann Uhrzeit 


35 IFPEEK(SE863>=08THENPOKESP438.62 

120 W9=167: IFPEEKTSO003>=0THENWF=I45 

150 PRINT"TIRAFIE-ROM: CNORZSHIFTIPORKEI4 FOKEI12" 
151 PRINT" 127 KLEIHGREOSS — GROSS’GRAF." 
ia2 PRINT" 22> GREOSS-KLEIN  GROSSGRERF. " 
153 OPENS.@: IL$="" :GOSUBEA4E: TA=YALCIL$3:CLOSES 
139 IFIL$=""THENISO 

ı60 IFYALSIL$SCZLANDVYALEIL$SSIZTHEH15O 

irö TA= VALCILEI 


158 LLOSES 

ı12a4 IFTA=1THENFRIHT"ÄLHRZEIT CHHMMSS2: "5: IL $="" :OPENS. 8: GOSUBEO49:CLUSES 
131 IFTA=ZTHEHFRINT"IUHRZEIT CHHIMBMSES "3: Ic$=""OPENS. 8:GOSUREO40:CLOSES 
132 IFIL$=""THERZOGO 

ı32 IFLEHEIL$SISIETHENIDGO 

134 TI$=IL$ 

zu Y=235 

2605 W9=167: IFPEEK(S50043>=GTHEHWF=I43 

209 IFFEEKCSOBOSP=ETHENIFFIESSTHEHNF=EIS 

zia DIMT$CWH,PC23:HU=5:FRINT"T 


1a9a Ak="":Bg="":CH="":Dg="":De0:CLOSEI:CLOSES:CLOSEI:KXL=0: IFL<OTHENL= 8 
1885 IFTA=ITHENPRIHT"STOP- _BOUNDARY | 

1586 IFTA=ZTHEHFRINT" STOP-EOUHDART "; Y; "u ” 
Iaid LE=B:TT=NOTTT: IFTT=-1THENIFFRE<BY <65 »ETHENI16SER 

1a220 PRINT:FRINT" SE": IL$="":OPENS.0:GOSUBEA4A:CLOSES 

1550 IFILF=""GOTOLOAO 

1094 52=0: IM$=LEFTFCIL$, 13: G0OSUF2B000: TP=TP-1 

995 IFER=ITHENGDSUBI1ESSE: GOTOI GE 

1299 IFTA=ZTHEN2300B 

l1aa IFIN$="C"GOTO4GRQ 

1laS IFIME=S"A"THENPRINT" S"LENCTFEL>H:GOTO1000 


ilıa IFIME= "ENTHENPRINT" A"FRECO)"N BrTES FREE" :GOTO1800 

1112 IFIME="K"THENPRINT" AUHRZEIT ee 2" HH" 

11:23 IFIM="W"THENPRINT" A"MIDFCTIF,2.2>" M "RIGHT$CTIF,2>" S":G0OT01808 
1115 IFIM$="E"THEN30008 

‚126 IFIM$="G"THENFRINT:L=PCO>: GOSUFS2B08: GOTO1AHA 

1134 IFIM$="T"THENDPENS. 8:GC0TOSBAGO 

114m IFIM$="L"THEN11500 


1158 IFIMF="M"GOTO16ACG 

iisc IFIM$="D"GOTO1SUCR 

17a IFIMF="P"THENGOSUBEOEG: GOTO1AAA 
‚lea ZFIMF="R"GOTO1SOGO 

1130 IFIM$="S"GOTO11000 

204 IFIM$="T"GOTO7BOG 

121a IFIM$="U"GOTO149C09 

ia0c IMF=LEFT$SCIL$,2D 

1#18 IFIM$="ER"THENGOTOSQBG 

1415 IFIM$&="NE"THENCLR:GOTO9B 

1508 PRINT: FRINT" S?PSTHTAX ERROR! ":GOTO1GER 
4986 LL=LENCIL$) 

4810 FORNI=ZTOLL-2:D$=MIDEFCIL$,NL. 13: IFDE=" "GOTO4130 
4022 NE#TNI:GOTO1508 

41360 Ni=N1+1:D$=MID$CIL$,N1,1) 

4204 FORN=NI1+1TOLL 

4226 IFMIDSCIL$,N, 13=0$G0T043060 

4230 NEXTN 

4240 N=LL+1 

+30 A$=MIDSCILF,Ni+1,N-N1-1) 

“480 IFNDLLTHENBS="":G0OT0O4680 

4420 FORN3=N+1TOLL 

4430 IFMID$CIL$,N3,19=D$GOT04508 
4440 NEXTN3 
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43450 
3500 
4500 
SEE 
Jeae 
dd 
a7’oa 
71a 
4720 
475 

+502 
“sic 
4350 
sage 
sale 
as 
sard 
SESE 
5830 
sı1oc 
jalz]s) 
E05 
Erle 
5020 
E21 
5025 
6026 
Gage 
2033 
AS 
Bad 
5A41 
EB4E 
6043 
Eid 
E45 
Ede 
= 5 u) 
E55 
1a 
2070 


EASE 
5090 
le1s Kb 
E10 
6118 
Gı2E 
138 
514d 
6145 
146 
5158 
5160 
E17 
5258 
E26 
6308 
540g 
E41 
E42 
5430 


N3=LL+1 

B$=MIDSCIL$,N+1,N3-N-1) 
LL=LENCA$>:IFLENCTFCLISKLLGOTO1508 
FÖRN=1TOLENSTEELII-LL+1 
IFMIDSCT$CLI.N,LLI=A$GOTO47OO 
HE#TN:GOTO1588 
LS=LENCT$ELID-N-LL+1: IFN=1THENAF="" :GOTO4720 
AF=LEFT$SCTFCLI.N-1D 
IFLS=8THENT$CL>="":GOTO4S08 
TELL>I=SRIGHT$SCTFCLI. LI 
T$CLI=AF+B$+T$CL) 
IFT$<L>=""THENC=1:6G0T05858 

FRIHT: GOSUBE3B88 : PRINT : GOTO18008 
C=P(8>: IFCSITHENC=1 
IFL+CHTTHEHC=T-L 

FORN=LTOT-C 

T$CHI=T$CH+CH T$CN+CI="":NEXTN 
FORN=Y-C+H1TOT: T$CNHI="":NEXTN 
IFT$CLI=""GOTO7148 
GOSUB6 3008: GOTO1O8G 

KT=0: IFL=YTTHEN16908 
IFT$<LYTH""THENL=L+1 

IFTF=8THENL=0 
IFTA=1THENPRINT"S?INPUT MODE." 
IFTR=ZTHENFRINT" S?INPUT MODE." 
IFL>YTHENI16908 
IFFRECOH<ESATHEN1 65306 

PRINT" S"L: ID"; : ILF="" 
IFET=STHEN1008 

GOSUBSA4B: GOTO617O 

POKENI, 8 

IF#M=BTHENGET#S,C$ 
IF#M=1THENGET#1,C# 
IFCST>ANDS4THENPOKENJ, 1 :FRINT"E® ":KT=5:RETURN 
IFFEEK(C52419) =254 THENCH=SR$ 
IFC$=""GOTOSBO41 

R$=C$:C5=ASCicH) 

IFCS=1S0ORCS=141 THENFOKEW9, 1: FRINT"E "RETURN 
IFLEHCILFIPISTANDCSTHZOTHENGAA] 
IFC$="TT'THENIL$="" PRINT" RETURN 
IFC&="S"THENILF="" PRINT" ":RETUÜRN 


IFC#="W" THENCF=" " 

IFCS=206G0T06498 

IFCES<SZOORCCS<ISSANDCS> 1303 THENEB41 

IFD<>OORTA=2G0TO6145 

CT=CSAND127:CU=CSAND1 25 

IFCCTZESIORCCT>9B>GOTOE145 

IFCU=BOTHENCH=CHR$CCSOR125) 

IFCU=1 era 5 ae 27? 

IFLENCIL$)>1 "a"; 
IFLENCILSI>ISTTHENPRINT : PRINT" SI?STRING TOO LONG ERROR!" 


GOTOSA4i 
IFIL$=""THENL=L-1:G0T01800 
GOSUB28100 

PRINT 

GOTO6825 

IFLEN<IL$)=8G0T06940 
IFLEN<ILFI=S1THENIL$="":GOT06434 
IL$=LEFTFCIL$.LENCILFPI-1) 
PRINT"N 1; :GOTOSI4O 


:GOTDEA4E 
IL$=IL$+C$: PRINTCS; : IFC$H=CHR$C34 > THENPRINTC$; PRINT" MI; 


D 


raod 
roida 
"ode 
as 
race 
riag 
ri2d 
144 
Faakcı 
2013 
Sı1ad 
lc 
Ss1zs 
e1se 
sell 
gg 
2230 
2244 
bee] 5) 
Fe = 
Sara 
5306 
Sala 
2320 
2330 
3339 
Sad 
3339 
Be 215 
22a 
3444 
=4a1 
TE 
3495 
2404 
=405 
241 
256 
Sse2kl 
2546 
36508 
SbeH 
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mEnsk 
264 
3606 
5668 
Ero8 
720 
73 

Dre 
Erd 
3745 
Sr od 
Dei Yard er 
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L 
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C=P(C85:PRIMT:D=P£1>: IFD=STHEND=3 
IFD>=2STHENGOSLUB16858:GOT01008 

ÜPEHS.D 

FORL=LTOL+C-1 

IFL>rGOTO?148 

IFTFCL>=""GOTOr148 

GOSUBES108:NEKTL 

L=L-1:60T01808 

D=Pc13: IFD=8THEND=3 

OPENS,.D. 14 

F=P(63: IFF=8THENF=' 

FORH1=1TOPC2:1D1=8:66G=8:GRA=8 

PP=&:PE=E 

A$="":LL=79:LM=8:L6=0:04=1 

FORN=BTOL+F-1 

GETC$: IFC$<H""THENN1=993:GOT0OS410 

IFT$INI=""GOTO3488 

L$=LEFT$CTFEND. 19 

IFL$=". "THENGOSUBS600 : GOTOSSIB 

IFHZLGOTOSSFG 

IFL$=" "THENC$H=AF: GOSUFSIRO: AF=TFCHI:GOTOSSZE 

IFAF="" THENAF=T$CN):GOTOSIEO 

R$=AFf+" "+T$CN) 

IFLENCA$I<SLLGOTOSSFPB 

GOSUBESOO 

IFLS=8THEHNLS=LL 

C$=LEFT$CAF.LS3:GOSUBSPOB 
IFLENCA$I=LSTHENAF="":GOTOS390 
A$=RIGHT$CAF.LENCAFSI-LS:GOTOSI2 

NEMTN 

C$=R#:GO5SUBS908: IFFB=8THENFRINT#S:PRINT#5:GOT08493 
FORÜI=FPTOPB: FRINT#5:NEXTOI 
IFOX&>1THENPRINHT#S, TARB£LL." 2-9" C"OX" I" EPRINT#5:PRINT#S 
IFFB=O9THENS4ES5 
FÜRGI=1TOLL-1:PRINT#5,". "5 :NESTQI:FORQI=1T0S:PRINT#S:NEXTROI 
IFDI>STHENDI=DI-1: IFDL>BTHENGOTOS12I 

NE=#TN1: RETURN 

FORLS=LLTOISTEP-1 

IFMID$SCA$,LS,1>=" "THEHRETURN 

NE»ATLS: RETURN 

IFA&<SZ""THENCHSRFAF="": GOSUBSPOR 

LB=LENCTFCN)) 

IFLBZ3THEHRETURN 

C$=MIDFCTFCNY, 2,22 

IL$=T$ CN) : GOSUB208008: I=P (6) 

IFTR=ZTHENZIBEB 

IFC$="CE"GOTOI3OG 

IFC$="LL"THENLL=I: IFLL=BTHENLL=79 

IFC$="LM"THENLM=1 

IFC#="DU"THENIFGG=SBTHEHDI=1:6G6G=5 

IFC$="SK" THENFORT1=1T0I : GOSUBSIEA :NERTJL: RETURN 
IFC$="PG"THENPB=I: IFI=SOTHENPB=O 

IFC$="RC"GOTOISOEO 

IFC$="NG" THEHCLOSES:OPENS. ID, 12: POKESPS88, 12: IFLLA>STHENLL=LL% 
IFC$="NK" THENCLOSES :OPENS, I, 14: POKES9SGG, 14: IFLLA>OTHENLL=LL# 
IFC$="EG"THENCLOSES:OFENS. I, 16: POKESFSOO. 12: LLA=LL’LL=LL, 2 
IFC$=" EBK" THENCLOSES: OPEHNS,D., 18: POKESPSOR, 14: LL#=LL:LL=LL2 
IFC$="LS"THENLG=] 

IFC$="FR"GOTOPEOO 
IFC&="AT"ORCH="RE"THENIFDISATHENIFGG=STHENIFGA=STHENI1 7000 
IFC&="AT"THENGOSUBI OBER GA=S 


75 


76 


Srs1 


IFC$="RE" THEHGOSUB18508: GR=3 


3795 IFC$="WAR"THENDH=T:GOSUPZE028 


3794 


IFC$="NL"THEHAL=i 


5292 RETURH 
3998 IFl$=""THENRETURH 
saic IFFF>=PR-STHENGOSUF4ERORB 


SI 
Ss 


5954 PRINT#5.C$: :IF#L=1THEN®L=D: PRINT#S. CHRF#C133; : PP=PF+1: RETURN 


=5+LM:5=0 
IFK>OTHENFORJ=1 TOK:PRIMT#5." "5: MESTI 


e3sa FORIT=1TOLG:PRINT#5:PP=FP+1:NEHTIT:RETURN 
3986 RETURN 


9304 


IFNZLTHEHNRETLUFN 


3318 W=LENSTFENII-4:IFWSITHENRETURN 

3332 C$=RIGHTFITFCHI.WD 

9348 FÜRM=1TOM: IFMIDSCCH.M. 1>=CHR$CS> THENW=W-2 
3345 NEH=TM 

3359 5=(LL-H,2: IFS<OTHENS=O 

33689 GOTOSI28 


3508 


IFN<LTHENRETURN 


9518 N=N+1:IFT$CNHI>=""THENRETURN 

9520 C$="":C=PiB): IFC=OTHENG=LL 

3530 CH=C$+TFCN) :WSLENICHY: IFWSCGOTOISS8 
3548 GOTD9358 


3558 


IFC>OTHENFORJ=1TOC :PRINT#S," "NEXT 


3562 GOT0S350 
3eERAa GETLCE: IFC$=""GOTOF6EBR 
9618 RETURN 


11aa0 
11945 
11847 
11045 
11818 
i1120 
11138 
11148 
11158 
11208 
11218 
11258 
11306 
11320 
11334 
11348 
11358 
11368 
11378 
11400 
11500 
11561 

11518 
11528 
150034 
13010 
140800 
14200 
13218 
143080 
1536 
ı5018 
151cd 
15200 


Ni1=Pi93:D=Fc19:N3=Pr25: IFD=BATHEND=1 
IFFC12>=33THENGOSUB1E358:G0OTO1 OS 
FOROO=1TONS 

PRINT"WRITIHNG "NA$ 

OFENS.D,1,HA$ 

FORH=NITOY 

IFT$SNI=""GOTO11208 

PRINT#S, TFCH>: T$=T$CN> :GOSUB11300 
NESTN 

CLOSES 

NEXTOO 

GOTO1A0O 

SZ=SZ+LEN(T#>+1 
IFSZ<192THENRETURN 

PÜKES3411,53 

T=TI 

IF<TI-T><58G0T011350 

POKESP411.61 

S2=52-1591 

RETURN 

I=P(1}: IFD=OTHEND=i 
IFD>=33THENGÜSUB1 6858: GOTOLOBE 
PRINT"SEARCHING FOR "HAF 

OPENS. D, 8, NA$:GOTÜEOOE 
C=PiB):PRINT: IFC=OTHENC=1 
L=L+C:GOSUBE2U80 : GOTO1000 
C=Pi8}:PRINT 

IFC=8THENC=1 
L=L-C:IFLIBTHENL=8: TP=1 
GOSUBE3OBB:GOTOI1OBG 

FRINT"S"L; ICE": IL#="":OPENS. 8: GÜSLUBEOSE 
IFIL$=""GOT015200 

TF(iL>=lL$ 

CLOSES:GOSUBSSOAG: GOTO1BGO 


leBac 
18BCH 
18018 
lecazA 
16034 
15805 
1816 
16165 
ls1il 
is1zd 
18200 
i621d 
1E>00 
18998 
16518 
16928 
16608 
16610 
167009 
1608 
16801 
16858 
16551 


15244 
15205 
15285 
15210 
18550 


rF=P(O>:C=F(i) 
IFFRESBHSIC-FIRLEBOTHENSEBAR 
IFCSFTHENC=F 
IFT$CF)=""GOT0O16908 
IFT$CCH=""GOTO16908 
IFL>FGOTO16500 

J=1: IFTF=BTHENJ=8 

FÜRNI=FTOC 

IL$=T$(C) 

FÜRN=CTOL+1+JSTEP-1: TFCNHP=TFCN-1D3:NEXTN 
TFCL+J3=1IL$ 

NEATNI 

GCTO1OCE 

FORNI=FTOC 

IL$=T$(F) 

FORN=FTOL-1: T$CNI=T$CHN+13:NEXTN 
TFCL>’=IL$ 

NEXTHI 

GOTO1808 


IFTR=1THENPRINT: PRINT" S?OUT OF MEMORY ERRÜR!": PRINT" SRRADY. " :GOT01068 
IFTA=2THENPRINT : PRINT" S?0OUT OF MEMORY ERROR!" :FRINT" SREADY.":GOTO1848 
IFTA=1THENFRINT:PRINT" S?ILLEGAL QUANTIT'T ERROR": PRINT" SREADY.": RETURN 
IFTR=ZTHENPRINT: PRINT" S?ILLEGAL QUANTIT'T ERROR": PRINT" SRERADY. ": RETURN 
IFTA=1THENFRINT:PRINT" S?OUT OF RANGE ERROR!" :PRINT"SREADY.":GOTO 1888 
IFTA=2ZTHENPRIHT:PRINT" S?OUT OF RANGE ERROR!" :PRINT"SREADY.":GOTO 1008 


FORÜI=1TOS:PRINT#S:HESTOI 


A SHS=E: IFLL{SSTHENLSSLL:LL=79:8K6=5 
3 IFTR=1THENPRINT#S, "JUERGEN RUED “PF.1325 „D-73888 FREIBURG 


IFTR=ZTHENPRINT#S, JUERGEN RUED »"PF.1325 D-78080 FREIBURG 
FRINT#S," 

IFAILF=""THEN1?22O 

FRINT#5.Al$; 

IFTA=1THENPRINT#S, TAB(LL-25-LENCA1F3 3 "FREIBURG, DEN "DA$ 

IFTA=ZTRENPRINT#S, TABSLL-25-LENGAI$SH "FREIBURG, DEN "DA$ 

IFR2F=""THEN172SO 


3 FRINT#S,A2$; 


IFTA=1THENPRINT#S, TABCLL-17-LENCREFP >" JUERGEN RUEI 
IFTA=SZTHENFRINT#S, TABSCLL-17-LENSREFI I" JUERGEN RUED 
IFA3$=""THEN17258 

PRINT#S,A3$; 


4 IFTA=ITHENPRIMT#S. TRESLL-17-LEN(ASFIS"EISENEAHNSTR. 66 


IFTA=ZTHENPRINT#S, TABCLL-17-LENCAS$) 3 "EISENBAHNSTR. 66 
IFTA=1THENPRINT#S, TAB{LL-172"D-7808 FREIBURG 
IFTA=ZTHENFRINT#S, TABCLL-179"7-7509 FREIBURG 
IFA4$=""THENI173S58 
OFEH1.D,15:PRINT#1,A4$: CLOSE1 
GETO173E8 

PRINT#S 

DN=LL-17: GOSUB22009 
FORQI=1TOS:FRINT#S:NERTOI:PRINT#S, " 
PF=FF+24 

IFA&=STHENLL=LS 

RETURN 

D=P(8:: IFLK=8THENOPEN3. D, @:LK=1:GOSUB18298 


4 INPUT#$3,R1$: IFA1$="ENDE"THENLK=8:CLOSES:N1=999:N=999: RETURN 


INPUT#3, A2$, A3F,A4$ 
GOTO1TO38 
OFENI.E:xM=1:BB=D:D=Q 


PRINT" ISDATLM BUDAF" ",:1ILH="":GOSUBEA4G: IFILKSP" "THENDAF=IL$ 


CLÜSEI:D=BE:xM=6 
RETURH 
IFTR=ITHENPRINT" SADRESSEM" 


":PRINT#5:FRINT#S:PRINT#S 


18501 
18505 
18507 
18508 
18518 
18511 
18512 


$ 
18513 
£ 


78 


18514 
15515 
185165 
18517 
15520 
18548 
Pi s1n]s]5) 
2a ad 
z0118 
20128 
20138 
26158 
zun168 
20170 
20158 
20120 
20218 
208215 
20220 


2023 


IFTA=ZTHENPRINT" ADRESSE" 
OPEN1.8:2M=1: BB=1:D=6 


IFTA=1THENIL$="": PRINT" SDATLIM "DA" ",:GOSUBSO4E: 
IFTA=ZTHENIL$="": PRINT" ADATUM "Das" ",:GOSUBSO4E: 
IFTA=1THENIL$="" :FRINT" SHAME Bu" ,Ai$" ";:6G0SUBEB4U: 
IFTA=2THENIL$="" PRINT" SHAME w";Al$" ";:GOSURSO4E: 
IFTA=1THENIL$="":PRINT"S m" ,A2$" ",:G0OSUBSO4B: 
IFTA=ZTHENIL$="":FRINT"A Bw" ,A2$" ",:GOSUBSB40: 
IFTA=ITHENIL$="": PRINT" SSTRASSE EU ;A3F" ".:60OSUBED4B: 
IFTA=2THENILF="" PRINT" SSTRASSE :W";A3$" "::60SUBEAIE: 
IFTA=ITHENIL$="": PRINT" SWOHNORT :E";A4$" ",:G0OSUBSO4B: 
IFTA=2THENIL$="": PRINT" AWOHNORT Ei A4$" ",:GOSURSA4B: 
CLOSE1:D=EE: xM=O 

GOTI1FOEE 

NAF=""ER=B:L1=0:PiO)=0:Pi1)=B:Pl2>=B 

FÜRK=UTO3 

Li=L1+1 

IFLI=LENSILFIGOTO2HSOG 

ae Ba 

LE=L 

L2=L2+1 

IFLZ=LEN(IL$>GOT028210 


P1$=MID$CIL$,L2,19 

IFASCCPISYSH32COTO20168 
IFK{STHENPCKI=SVALCMIDFCILF, LI, L2-L1+13 > 
IFK=3THENNA$=MIDFCIL$.L1,L2-L1+15: IFLENSHAFIFLSTHENNA$=LEFTFCNAF, 16) 


NEXTK 


IFPC1PF1STHENER=1 


20308 RETURN 
IFTA=1 THENOF=LEFT$CTIS,23+" H "+MID$LTIS,3,25+" M "+RIGHT$CTIS,23+" 5" 


22800 
22001 
22018 
22020 
25008 
23001 
23002 
E3003 
23065 
23015 
230208 
23830 
23040 
23050 
23060 
23078 


24040 


24045 


IFTA=2ZTHENÜ$F=LEFTFCTI$,22+" H 


PRINT#5, TABCDNI:Q#:PP=PP+1 


RETURN 


IFILFSH""THENDAF=IL 
IFIL$>""THENDAF=IL 
IFIL$S>""THEHAIFSIL 
IFILFTH""THENAI$=IL 
IFILFCH""THENAZF=IL 


IFIL$S>""THENAZ$=IL 


IFILFS>""THENASF=IL 
IFIL$T>""THENASE=IL 
IFIL$CH>""THENAIF=IL 
IFILFS>""THENA4F=IL 


"4MIDSCTIE,3,29+" M "+RICHTSCTIS,2I+" 5" 


IF IM$="F"THENPRINT"S"FRECO>"N BYTES FREE" :GOT01000 
IFIM$="C"G5OT04008 

IFIM$="W"THENFRINT" UHRZEIT "LEFT$<TIS.22" H "; 
IFIM$="W"THENPRINT" A"MID$CTIS,3.2>" M "RIGHT$CTIS, 23" 5":GOT01800 
IFIM$="X" THENPRINT"A"LENCT$CL32:GOTO1098 

IF IM$="E"THENSQ@OGO 

IF IM$="G"THENPRINT:L=FX6) : GOSUBEZBAG : GOTU1GA8 

IF IM$=" 1" THENÜFENS, 8:G0T06088 

IFIM$="L"THENI 1508 

IFIM$="M"GOTO16088 

IF IM$="D"GOT013008 

IFIM$="P"THENGOSUBSEGR: GOTO1B0G 

IF IM$="R"GOTO15088 

IF IM$="5"GOTO11008 

IFIM$="T"GOT07008 

IFIM$="U"GOTO14068 

IM$=LEFT$CILF, 2) 

IFIM$="ER" THENGOTOSOGE 

IFIM$="NE"THEHCLR : GOTO9G 

GOT0O1598 

IFC$="CE"GOTOI300 

IFC$="LL"THENLL=I: IFLL=8THENLL=7 

IFC$="LM"THEHLM=1I 

IFC$="DU"THENIFGG=BTHENDI=1:66=9 
IFC$="SK"THEHFORI1=1T01:GOSUPSIER: HEXTIL RETURN 
IFC$="PG"THENPB=I:IFI=SOTHENPB=0O 


24450 
2453 
24054 
23455 
24036 
24dcE 
es Pa 
24075 
24058 
23051 
PET 5 Fachan 
24320 
24120 
z510 
z6110 
2ölzR 
E55] 
=E80 
Risicicpi 
20862 
20093 
9005 
=0010 
>02 
=a021 
>0025 
=8038 
30040 
0041 
>0950 
20951 
>8100 
>0102 
38103 
sa10d4 
20185 
8118 
Sa2a8 
=18a0 
+gaag 
49045 
3010 
43015 
EAUG 
52010 
52020 
53048 
&3100 
FERDT. 


IFC$="RC"GOTO2508 
IFC$="NG"THENCLOSES:OFENS. D, 12: IFLLA>OTHENLL=LL% 
IFC$&="NK"THENCLOSES: OPENS,D, 14: IFLLA>BTHENLL=LLZ 
iFC$="BG"THENCLOSES: OPENS,D, 16:LL#=LL:LL=LL/2 
IFC$="BE"THENCLOSES:OFENS,D,18:LL3=LL:LL=LL72 
IFC$="LS"THENLG=1 

IFC$="PA"GOTOIEAB 
IFC$="AT"ÜRC$H="RE"THENIFDI>OTHENIFGG=STHENIFGR=STHEN1 7888 
IFC$="AT"THENGOSLUB18808: GR=5 
IFC$="RE"THENGOSUB18508 : GA=5 

IFC$=" WA" THENDN=I:GOSUR22008 

IFCH="NL"THENSL=1 

RETURN 

FÜRN=TTOL+1STEP-i 


TFINI=TEFCN-ID 

NERT . 

TF<L>’=IL$:L=L+1: RETURN 

IFTA=1THENPRINT'IF ILE-EINGABE m" 
IFTA=2ZTHENPRINT'TIF ILE-EINGARABE m" 


IFTA=1THENPRINT" SNAME=<CRETURN?=F EINGABEENDEEM" 
IFTA=ZTHENPRINT" SHRME=CRETURN?=> EINGABEENDEEI" 
“M=1:BB=D:0=0:52=8 

OPENS.1,1,NA$:OPEN1,D 

IFTA=1I THENIL$="" : PRINT" NAME a ",:G05UBEA4H:AlF=iL$ 
IFTR=ZTHENIL$="": PRINT" SNAME :# ",:G0SUBea4a:Al$=IL$ 
IFA1$=""THEN30209 


IL$="": PRINT" = ":GOSUBEAMB:AZF=ILF 

IFTA=1THENILF="":PRINT"SSTRASSE :@ ";:GOSUBEAgA:ASF=ILE 
IFTA=2THENIL$="":PRINT"SSTRASSE := "; :GOSUBEBA4R:AIF=ILF 
IFTA=1THENILF="":PRINT"SMOHNORT :@ ":GOSUBEOMR:Ad$=ILF 
IFTA=2THENIL$="":PRINT"SOOHNORT :E "::GOSUBEAMA:AAE=IL$ 


PRIMT#3,Al$:T$=Al#:GOSUB11308 
PRINT#3, R2$: T$=A2# :GOSUB11308 
PRINT#3,R2$: T$=A3#:GO5SUB11300 
PRINT#3.A4$: T$=A4$:GOSUE1IICH 
PRINT: PRINT :FRIHT 

GOTOSOB28 
CLOSE1:CLUÜSES: D=BEB: XM=8 
GOTO1aBE 

IFPB=GTHENRETURN 


PREINT#5:PRINT#S:FRINT#S, TAB<LL’E-" "OR" 3" 

PRINT#5:PRINT#5: PRINT#S:FRINT#5: FORQI=1TOLL-1:PRINT#S, ". "3 :NERTOI:PRINT#S 
PRINT#5:PRINT#5:PRINT#S:PRINT#S:FP=9: Qx=Q04+1: RETURN 

IFLFTTHEHL=Y 

IFL=8THENTP=1:60T063004 

IFT$CL>=""THENL=L-1:60T062018 

OPENS. 3 

GOSUBSISB: PRINT#S, "I'LL; "IDEE". T$CL>: RETURN 


Für weitere Informationen empfehle ich Ihnen: 

ELCOMP die Fachzeitschrift für Microcomputer Nr. 10/1979, Seite 118 

sowie das Originalprogramm Wortprozessor Best.-Nr. 426 zu 96,— DM ö 

zu beziehen durch: Ing. W. Hofacker GmbH, Postfach 75 437, 8000 München 75 : 

Eine Cassette mit dem hier gezeigten Programm kann vom Verfasser direkt gegen eine Gebühr be- 
zogen werden: Juergen Rued, Eisenbahnstr. 66, 7800 Freiburg 


79 


80 


NOTIZEN 


Laufschrift 


LAUFSCHRIFT 


Dieses Programm eignet sich bestens zur Er- geben. Daher ist es zweckmäßig dieses Programm 
zeugung von Großschrift auf einem Drucker. Das nur mit einem Drucker zusammen zu ver- 
Programm ist auf Divice 4 ausgelegt. Der Text wenden. 

wird nicht horizontal, sondern vertikal ausge- 


100 DIM QQFC100)7.QNF (100). DEFC 1003, ORFC1ORI.OTFCLOR) 
118 FORA=32TO9E 

128 REARDOOSCA?. OWFCAY. DEFCAN. ORSIAI.OTFCA) 
38 NEXTA 

148 GOTOSG88 

158 CLOSES: INPUT"TTEXTHOEHE (7-88>:";DF 
168 IFDF<7ORDF>SOTHENI1SB 

178 DF=INT<DF/7?} 

188 GOSUBS5OU8 

208 PRINT"ITEXTCNICHT MEHR ALS 255 ZEICHEN. L"CHR$C3HS"INICHT VERWENDEN! 

yon 

284 INPUTRT$ 

205 IFRT$=""THEN204 

287 IFCW=1THENFORA=1TO18:PRINT:NEXTA 

285 IFCV=2THENFORA=1TO18:PRINT#4:NEXTA 
218 FORA=1TOLEN(RT$? 

220 T$=MID$CRT$,A.1) 

230 Q=ASCCT$) 

248 1IF0=2220R0=255THENÜ=98: GOTOE45 

242 IFOL320RQ>9STHENG=32:G0T0245 

245 GOSUB4BO 

246 IFCV=2THENPRINTT$; 

258 IFCV=1THENFORTY=1TODF:PRINT:NEXTTT 

255 IFCV=2THENFORTYT=S1TODF:PRINT#4:NEATT'T 
268 NEXTA 

261 IFCV=1THENFORR=1TO10: PRINT :NERTA 

262 IFCVW=ZTHENFORA=1TO18:PRINT#4:NEHTA 

265 GOTO150 

400 ERF=ROFCH) : GOSUBSOO 

418 ER$=QUSCH) :GOSUBSOO 

420 ER$=DEFCH) : GOSUBSBO 

+30 ERF=OR$CH) :GOSUBSOO 

+40 ER$=OT$CH) :GOSUBSOU 

450 RETURN 

a8 FORRE=1TODF-1 

>18 FORWU=1TOLENCER$) 

328 ARS$=MIDFCERF,W,1) 

24 IFAS$=" "THENSSO 

S26 IFEB=2THENASS="8" 

327 IFCB=1THENAS$=T$ 

30 IFCV=1THENFORAS=1TODF : PRINTAS$; : NEXTAS 

>35 IFCW=2THENFORAS=1TOUF:PRINT#4,ASF: !: NEATAS 

>48 NEXT 

>45 IFCV=1THENPRINT 
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„46 IFCW=ZTHENPRINT#4 


559 NEXTRE 
E99 RETURN 
1000 DATA" "," "," 
1010 


ig28 DATA" "," 


DATA" Li ä u 1) e [1 Ex 


s . 
BE NE 5 [2 u 5 “# u 


L ‘ n Li ILDNE [| ” 
ge AR 


1934 DATA n BE Be 11% BEER Li) A 2 B52 Bw, UM RS EN n [2] 
1048 DATA" ®& gu, ee Se 22 ," Sue 
1050 DATA" 58", u > Ess ©: Zus Sr 
sg60 DATA" RT. NETTE BUT NO BEUTE 
10978 DATA" l) ; 1 ze r „ ze 4 u BES H u 

iasa DATA" OR." ENT." N," a n 
1094 DATA" N 

1100 DATA" SENT." BR ER 

1 1 ig DATR" u ” [1] Be, li ERS Al 4 12) zen 4 Li Bu } } 

1 120 DATA" Li) r n 2 n: RE n ” 5 us u 

1 130 DATR" u F „ ge ; En Bu s 11) Ba a Li) [1 


1140 
1150 
1168 
1178 
1186 
194 
1204 
j21e 


DATA" Ll) A “ [i 5 
DATA" mE", " 

DATA" aaa", 
Data" 8" 
DATA"® ®", 
Data" =  w, 
DATR" gg" r n 

DATA" 


220 DATA" ae. m u wu m gt. 
1239 DATA" Pe =", a 
1248 DATA" u ut. m 8 8", Sp 
1250 DATR" 8 wer.ıu mM", we." 
1F6H DATR" U) r “" ur [2 : un 


DATA" ", 
DATA" 
DATR" " 3 “ 
DATA" "," 
DATA" ", 
DATA" ae", 
DATA" EERRRE" . " 
DATA" 
DATA" 
DATA" & 


278 
1236 
1290 
1380 
1310 
1320 
1338 
1340 
1350 
1368 
1370 
1390 
1396 
1408 
i410 
1420 
1430 
1440 
1458 
1468 
1470 
1458 
1420 
1508 
1S10 
1528 
1538 
1540 
1558 
ı Sec 
1578 


a 


DATA" SREEE" 
DATA" menu" 
DATA" EEES 
DATA" ","8 
DATA" 8". "2", 
DATA" sage" 


DATA" OBER "' 


Data" zu". " 
Data" © 3% 
DATA" ® 
DATA" Samen 
DATA" we 
DATA" EENER 
DATA" SS 
DATA" 


zen 8 gu u KT 1 BR 
BE Eu | E3% 
n 3 “ n ER x un 18977 
RE Rn Be, 


"2 


zur," 


x, 


B", 
DATA" RER" , 


DATA" BREERERE" P 
DAT RREESRREEER" . 


DaATR": ESSEN BR SS 2. 


i “ Be" r 


AL 
BE 8 


u", 


„ ı 8 ı 4 n 
By 4 ’ 8 


RR" ng a, 


n IE} a 
nn 'ER Ds 


"88 


"2 2 . 1) Be 3 Au 


ne Ne " Li IR ET | 
BE BON, Sem" , 
us Pe a I |] u 

$ Bo E33 Fi 2 R} E 


N ns 
; 

u 
on 


2 
u 

BR . \ 

ES n Nu zu ne 1; 1 
BEE a BE RE a EN ER 


27-3 Al 
Le = &% 


ag a n 


DEN WE SEINE PETE ug un u Be SAL 
23 $ a 58 35 BE a 58 © Su EEE 3 
1 N U Le 1) SE ENERER AT) 

u BE a BE EEREIEREE 


3", 
il E93 


ns ." " 
=, 


Ur BERSERE RER Al r 


1. 4 

„ vun N gu a gg 

NEN f u rer u: gu 

u 2 ä BSH 

n Be y “ Bu P " 

ES E u ’ 113 BE Fe 

mE IE FRE S 8", 

Zus SE 5 SE SE mE a E 

u = gg 5 " BEER Fa r u ES ES Fu R " £ Bug! 
u me SE SE u Su 20 zu zu Se el 
} 1 Ed 3 n EEE FUN “u Be E " ze 


[LES De 1 71 se | 
ERS Be“ a 


ERTL LERSE TU 
SEN 


tet erh Or te 
" gg ug FR Segpgn 
nenn PSSCS U Bee | BE 1:51 T BB 1 599.500 772 0507007 Sl) 
Pa | BEER a EZ Eu EIER 

u za mann wen it NT 1 7 yaye 

RE BE BEE . BER EN 
u BAT M) zn SL 

EX ES Ei! 


1584 a. n Pr "z & gu" ns EE gg P. N% RE ES ze" F ie: Sa! 
1-94 DATA" j SEEER EELEEE Zug "RB gi s ns u" ; u 0 


1E&06 DATR" 3 a " Ba 5 u a R u: ng 

1818 DATA" a ; un gg" f um g", n suggesuuggg" F u 8 

1Ez0 DATR" ge" y il RE" $ " BESSE ERSTER a Li BEE van u ge 
18530 DATA" OBERE RB S 

1640 DATA" RU ER" BE RREN 8 


=sö860 PRINT"MBILDSCHIRM-1 

sale PRINT"DRUCKER----2 

so3c0 GETRF: IFR$=""THENSO3O 

=a420 IFVYALCRFISZIORVALCRFISZTHENSOSO 

sag en 

sad4s OPEN 4,4 

sasa ERINTTARZEICHEN: BUCHSTRBE-1" 

sasc PRINT" E33 et 

ara GETRF: IFR$=""THENSOFO 

=sdsa IFYALCRFEISIORVALEREIFETHENSO?BO 

085 CB=VALCRF) 

A950 RETURN 

S5a08 PRINT"7"::FORA=OTO39:FRINT" SB" :NERXTA 

said FORA=1T023:PRINT'"RE"; : NEXT 

eg28 FORA=1T0393:PRINT"IER" ; NEXT 

S930 FORA=1ITO2Z3:PRINT"ITCEE" 5 NEXT 

20846 PRINT" SEDDEDDE BB ————— "' 

5056 PRINT" SERIEIIIBRBEEBBBBBBR | AAALIFERNDER |" 

20609 PRINT" SIERKDIIDE BB "' 

5078 PRINT" SKK BEEEBBEBLCOFTRIGHT" 

2080 PRINT" SIWEISIKISIIIEISIEIBBBBRBEBBE EB. 13" 

3a9c FRINT" SDUINTEINDNIRINTSIKIKDER I  '" 

5180 PRINT" SEREIDIDIDIEIIEIIEEBBEERBBLTLIERGEN RUEL" 
5118 PRINT" SEINE ITSENERHNSTR. 66 
5120 PRINT" AMANIIIMIEDEEINIKAIKITE EEE SOC FREIEUFRG 
3130 PR INT "" SOMERTMNDRDSUNDS DSDS ERÜNDSERSTRERTE TR BD ee De De IL SPACE-; 
3206 POKE33522, 5A: SA=SA+1:FORA=1T017B: NEXTRA: IFSA=SZSSTHENSA=G 
=216 GETR$: IFR$T>" "THENS2DG 

s3080 PRINT"TSIE HABEN HIER EIN PRÜGRAMM YOR SICh. 
esia PRINT"DASS SIE DAZU BEFREHIGT, TEXTE IH 

3320 PRINT"GROSSCHRIFT AUF DRUCKER ODER BILDSCHIRM 
33a FRINT"ALUSZUGEBEN. BERCHTEN SIE JEDOCH, DASS 
3342 PRINT"DER TEXT NICH HORIZONTAL. SONDERN VER- 
3354 PRINT"TIKRAL AUSGEGEBEN WIRD. ACHTEN SIE DA- 
S36E1 PRINT"RAUF, DASS SIE ALS TEXT NICHT °.° ODER 
3378 PRINT": EINGEBEN. DER TEST SOLLTE NICHT 
s3e0 FRINT"LAENGER ALS 7 ZEICHEN SEIN. 

339G PRINT"SIE HABEN DIE MOEGLICHKEIT. DIE HÜEHE 
2400 PRINT"DER AUSGEGEBENEN BUCHSTRAEEN ZWISCHEN 
Ss410 PRINT"? UND E08 ZEICHEN ZU WAEHLEN. AUSSERDEM 
S42M PRINT"KOEHNNEHN SIE ENTSCHEIDEN, OF DIE EUCH- 
&4360 PRINT"STABEN RAUS DEN JEWEILIGEN EUCHSTABEN 
449 PRINT"ODER DEM ZEICHEN "8° BESTEHEN. 

=60G PRINT" MEIIBRBBBBBRRBBBBBBKSFRLE> 

sraa GETRE:IFRFI>" "THENSTOO 

sson RTF="PET":CV=1:CR=1:!DFf=2:6070207° 
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NOTIZEN 


LC Kreisberechnung 


KREISBERECHNUNG 


PRINT" TIBBBRBRBI3EF*F#L_-C KREISBERECHNUNGKERRRREE" 
PRINT" MSDIESES PROGRAMM BERECHNET L- LIND C WERTE" 
PRINT"RESONANZFREQUENZ UND SPLULE-ABMESSUNG " 
PRINT"MMBITTE WAHLEN SIE AUS FOLGENDES: " 
PRINT" -1 FREQUENZ BERECHNUNG" 

PRINT" -2 KAPAZITAET BERECHNUNG" 

PRINT"MM -3 INDUCTIVITAET BERECHNUNG" 
FRINT"MM -4 SPULE-ABMESSUNG" 

PRINT" -5 EHDE 

GETBF: IFB$=""THEN19O 

IFB£="1"THENZEO 

IFB$="2"THENIEB 

IFB$="3"THENSZO 

IFB$="3'"THENE YO 

IFB£="5"THENI1O 

PRINT"7":GOTO139 

PRINT" TIIBBRBBBBBBBIFREQUENZ BERECHNUNGE" 
INPUT"MBBIINDUCTIVITARET IN MICROHENRY" SL 
INPUT"MISICAPACITERT IN PICO-FARAD";C 
F=e1/C2aHKSORCLACHE-6)) 

REM FUR MEHR GENAUWE WERTEN 1806 IN i48 ANDEREN 
FF=F*10008: F=INTCFF+.57.’1008 

PRINT" SUNIEBBBBBRBBBBI" 

PRINT"IBRRRRRBBRIA"F" NHZW" 

PRINT"MARERBINÄHLEN SIE BITTE NEUE NUMMER" :GOTO128 
END 

en 2 NT" TRIMBRBBRBBBBIKFPAZITRET BERECHNUNG" 
INPUT" IIBIFREQLIENZ IN MHZ";F 
INPUT"ISUINDUCTIVYITRET IN MICRO-HENRY" SL 

Reel CERTIFRIEE) 

C=(Ater/tL#1E-6) 
IFINTSCH<SITHENB=B+1:C=CH1E3:G0T0428 
IFB=BOTHENCC$H="F" 

IFB=1THENCC$H="MF" 

IFB=ZTHENCC$H=" UF" 

IFB=3THENCC$="NF" 

IFB=3THENCC$="PF" 


IFB>=STHENPRIHT" IIISBNICHT FRAKTISCH !!!11":GOT0508 


C=C#18:C=INTIC+.9:C=C/18 

PRINT" MENIEIIEBBBBBBBBBIA"C CC" W" 

a IHT"ADRIEISBINAHLEN SIE BITTE NEUE NUMMER" :GOTO198 
ND 

my "TIEBBBBBBBBBBIAINDUCTIVITAET BERECHNUNG" 

B= 

IHPUT"MIBFREQUENZ IN MHZ";F 

IMPUT"IBKAPACITAET IN FF"SC 

AR=El/CEHTEFRIES) 

L=(AT2I /CCHLE-123:G0T0588 

IFIMT<LI<ITHENB=B+1:L=L#1E3:GOT0OSSO 
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IFB=BTHENRF="H" 

IFB=1 THENAF="MH" 

IFB=2THENA$="LIH" 

IFB=3STHENAF="NH" 

IFB=4THENA$="FH" 
L=L#18:L=INTIL>:L=L.’18 

PRINT" MINIIBRBBBRBBRBIA"L; A" =" 
PRIHT"KEIMEIBEIRHLEN SIE EITTE NEUE NUMMER" :GOTO198 
PRINT" TINBBBRBBBRBBISSFULE-ABMESSUNGE 
INPUT" IEBIINHENDURCHMESSER IN CM";D 
INPUT"ISMINDUCTIVITRET IN UH";L 
LE=1.75%D 

N=SORNLECHKDHEGHLEN.C. 197AD1E3) 
N=1E&H :N=INTCN+. 5/1 
DD=(LETZHNISHLEO 

DD=i00%D0D:DD=INTIID+. 5? 100 


PRINT"T" 

PRINT" ri u 

PRINT" NS" 

PRINT" ee 

PRINT" Di en 

PRIHT" Ne TITZEN 

PRINT" IB LE" 

PR H NT n 1 GEBE ;. u 

PRINT" Zen Fe 

PRINT" GR: 

PRINT: PRINT:PRINT" L= INDUCTIVITRET a"; LE LH" 
PRINT:FRIHT"  D= INHENDURCHMESSERIBBBI 3";D, "BCM" 
PRINT"M H= ANZAHL WINDUNGEN a";N 

PRINT"N LE= SPULE LANGEIBBBI a" ;LE; "CH" 


PRINT"M DD= MAX. DRAHTDURCHMESSER 3"; DD, "wa" 
PRINT"MISIIHAHLEN SIE BITTE NEUE NUMMER" :GOTO198 


Roulette Auswertung 


ROULETTE AUSWERTUNG 


REM 
REM 


REM 
REM 
ia CLR 


BAHN A Lo por 


208 Z=180 


REM: 
REM : 


REM : 


* 
% 
% 
* 
* 
* 


* 


ROÖULETTPRÜGRANM ZUR „AUSWERTUNG “ON SYSTEMSFIELEN # 
MIT ERFECHNLUNG DER ZEROVWERLLUSTE # 


MIT FROGRESSICN +3 -5 
GRAPHISCHE AHZEIGE DER SERIEN 
ERSCHEINT EINE FARBE MEHR ALS 


t EINFACHE CHANCEN GRUNDMUSTER * 


* 


“ON SCHWARZ. ROT UND ZERO * 
EINMAL. SO WIRD DIESE FARBE NACHGESETET 


ERSTELLT AUF CBM 3032,598 BYTES OHNE REM 


za DIM AC36) 

sa FOR I=1 TO 13 
E08 FERD R,N 

ra AMD=1:'RcCR’=2 
SQ NEXT I 


108 DATA il. 2,2,4,9,6,7,8,9, 10, 12 
118 DATA 


250 5=X 


‚il. 14,13,16.15,18,17 


193, 20, el. 22 &3, 24, 29, 26,2 er a 28, 39, 23,32, 31,34,3 33, 36,3 35 
158 KA=108 

ica MA=SKA:MI=ER 
za GOTO 450 


320 KA=KA-S 

318 IF KA<MI THEN MI=Kf 
350 SP=SP+1 

508 W=INTCRNDE1I#37) 
S1Q FCACWIISFLACHIIHL 
520 GOSUB 958 


38 IF W=8 THEN KA=KA+S.’2: 


>98 REM * VERGLEICH %# 

„sg IF ACW3=Fi GOTO Vie 

sr8 IF AcWw>=FZ GOTO 710 

600 REM * VERLUST - NEUER SATZ % 
550 %=%-5 

5668 IF »<8 THEN X%=8 

698 GOTO 888 

"Bd REM * GEWINH - HEUER SATZ # 
"ia KA=KA+2#5 

vea IF KA>MA THEN MA=KA 

"90 K=k+s 

"ea IF 8210 THEN »=3 

sag ON AcW> GOSLUB 380,930 

med PRINT IAB<= E’KA 

ssa IF SPIZ GOTO 2508 

sa GOTÜ s318 

300 REM * UNTERPROGRAMME % 


360 PRINT SP TAB(S)S 
356 Fi=1: 


F2=8: RETURN 


336 Fe=2:Fil=8:RETURN 
SBa8 REM # ERGEBNISSE AUSDRÜCKEN % 


YVL=YL+5.2:60T0 850 


s8 IF W=8 THEN PRINT SP TABCEIS TABCISPW TABSIEI"ZERO"TABCEEIKA+S FE: RETURN 
TABSI1Z>M TABCIG+ACKI IK" RETURN 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM 


3 REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


"SPIELE = "SP 
"SCHWARZ = "FX1) 
"ROT = "F(2) 
"ZERO = "F(O) 
"ZEROVERL. = "VL 
"KAPIT.MIN. = "MI 
"KAPIT.MAX. = "MA 
"KAPITAL = "KR 
K--------- x 
* VARIABLENLISTE % 


AcH> = NOIR = SCHWARZ 

AR? = ROUGE = ROT 

FCRSW> = ZREHLER FARBE+ZERO 
Fi UND F2 = “RRIRBLEN FUER 


FARBENVERGLEICH 
KA = KAFITAL 
MA = MAX. KAPITAL 


MI = MIN. KAPITAL 


5 SATZ PRÜ SPIEL 

SP = SPIELE 

YL = YERLUSTE DURCH ZERO 
W WURF 


% = VARIABLE ZUR ERRECHNUNG 
DER EINSAETZE 

2 = ZAHL DER SPIELE 

KA UND Z KOENNEN ZU BEGINH 
BELIEBIG GESETZT WERDEN 
ERKLAERUNG BILDSCHIRMAUSGABE 


1. SPALTE = SPIELNLUMMER 

2. SPALTE = EINSATZ 

3. SPALTE = GEFALLENE ZAHL 
4. SPALTE = GRAPHIK 

5. SPALTE = KAPITAL 


Serien- und 
Parallelschaltung 


PARALLEL- UND SERIENSCHALTUNG 


5 PRINT" 


3 PRINT" 
5 PRINT" 


5 PRINT" 


PRINT"TMOLLEN SIE „.." 
PRINT"MMA> PARALLELSCHALTUNG ?" 
PRINT"ME> SERIENSCHÄLTUNG ?" 
PRINT" MC)" AUFHOEREN zu 
GETA$: IFA$="A"THEN1990 

IFA$="B" THENSB80 
IFA$="C"THEN15000 

6070548 
4 REM++H+rrHrrr Hr Hr tr tr Hr rt Hr Hr HH HH Hr HH HH 


PRINT"7" 
PRINT" nn 


PRINT" 
PRINT" 


PRINT" 
PRINT" UL [ BB 


u 
PRINT" > Rz a 
PRINT" Lumen | 
PRINT" ee, 
PRINT" RN 
PRINT" 


2 FOR®%=1T018088 : NEXT 
= INPUT"WIEVIELE WIDERSTRENDE CHEM" :Z:DIMACZ: 


FORX=1T0Z 
IFR1<SOORR2<OTHENSSBOR 
PRINT"MR"%"=" 5: INPUTRACH> 
IFACH><OTHENA8088 

NEST 

A=1 

IFACH>=ÖTHENS?EOG 
IF»=ZTHEN1100 
8=%+1:G0T01896 

T=8 
En 
T=1/ 

PRINT" IGESAMMTWIDERSTAND="T" OHM 
GOTÜEZAA8 


> END 


FRINT"T"' 

PRINT Tee 
PRINT"! Br 
PRINT"!I 

PRINT"! 

PRINT"! 

PRINT"L__ ee u. “ . m | 
PRINT" RE DEEREELEEEER [0 0 02 


= PRINT" Ri RZ RN 


sonen arm Omas Imei> «mE Minen äres MALE anamm MENE» aub6s AADER milk AnbER area Ani 
«Emm ale AiRER SnEEm Ohren Cine aerae GAMER mEum MINE» ud GEDRD SURR GASEN einen MACD 
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90 


Sg42 
5052 
So6z 
Sg72 
5082 
5092 
51061 
5105 
5120 
5124 
5125 
5130 
5140 
5aua 
11088 
15908 
15001 
48009 
48001 
48002 
48005 
58400 
S8001 
53902 
53005 
Saaaa 
52068 
62001 
62905 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
INFUT"MNUIEVIELE WIDERSTREHDE si": H 


FÜRK=1TOH 

PRINT" IR" 8: "=", : IMPUTRACH> 
IFAC#}SOTHENA4SBOB 

NERT 

FÜR#=1TON: ZZSZZ+RCH? :NERT 


PRINT" MINGESAMMTWIDERSTAND="; ZZ 
FORA=1T058890 : NEXT RUM 

IFACH> <OTHEN 

NENNE LERNERGERT RES TELEETIRRENEERERRRENE 
PRINT" MUSIDIOTE 

PRINT"M ES GIET DOCH KEINE HEGATIVEN 

PEINT"M WUIDERSTRENDE" 

PRINT" MM" :FORZZ=1T050884: HEHT RUF 

PRINT" MMAIDIOTE 

FREINT"M ES GIET DOCH KEINE HEGATIWEN 

PRINT"M WIDERSTAEHDE" 

PRINT" MO" :GOTO107S 

PRINT'"MOSRIH RZ MUESSEN UNGLEICH NULL SEIN" :PRIHT"MM":GOTO1G75 
FORZ=1T02808: NERT 

FEINT"MM NOCHMAL 7 SJN> 

GETR$: IFA$=" I" THEHRUN 


220186 IFA$="N"THENEND 


62015 
READY. 


GOT0OS2U05 


Rechnungsschreiben 


RECHNUNGSSCHREIBEN 


Das nachfolgende Programm zum Schreiben von 
Rechnungen wurde auf einem CBM 3001 mit 
16K entwickelt und getestet. Es arbeitet zu- 
sammen mit einem Drucker (# 4) und den 
neutralen Rechnungsformularen von Redysoft. 
Es ist wichtig, daß Sie einen Drucker ange- 
schlossen haben. Ansonsten müssen die ent- 
sprechenden PRINT-Befehle abgeändert werden. 


Die Produkte befinden sich in DATA-State- 
ments. Dort stehen auch die Informationen über 
Preis und MwSt. Rabatt und Versandkosten 
werden in Abhängigkeit von der Bestellmenge 
ermittelt. Das Programm druckt automatisch 
einen Paketaufkleber mit aus. Das Rechungs- 


datum wird nur zu Beginn einmal eingegeben. 
Es wird bei den folgenden Rechnungen auto- 
matisch eingesetzt. Die Rechnungsnummer wird 
nach jedem Durchlauf um 1 erhöht. 


Das Rechnungsschreibprogramm ist für das 
nachfolgend gezeigte Musterformular ausgelegt. 
Das Musterformular ist jedoch verkleinert. Es 
soll Ihnen als Anregung dienen. Die Formulare 
können vom Hofacker Verlag unter der Best.- 
Nr. 6206 bezogen werden. Es sind jeweils 2000 
Blatt in einem Karton verpackt (Original plus die 
Kopien — NCR Papier). Sie dienen Ihnen in der 
Übergansphase, bis Sie sich vom Drucker Ihre 
eigenen mit Firmenkopf versehenen Formulare 
besorgt haben. 


100 REM C BY ING: HÜFRACKER GMBH 1930 


110 DIM T<c10,2> 


130 INPUT "RECHNUNGSDATUM EINGEBEN": RD$S 
140 INPIT"ERSTE RECHNUNGSHUMMER EINGEBEN"; 11 


150. INPUT"KUNDEHNUMMER EINGEBEN" :;C1 


iel IF Ci=0 THEN 1400 


170 INPUT"NAME DES KLINDEN EINGEBEN": 51$ 


130 INPUT"STRASSE UND NR. ";$S2$ 


190 INPUT"POSTLEITZAHL UND ORT" .:53$ 


200 DPEN4,4:CMD4 


210 PRINT#4,TAB<I12>: "ING. W. HÖFACKER GMBH, TEGERNSEERETR: 18. 8150 


HOLZKIRIHEN 
220 PRINT#4:PRINT#4: PRINT#4 
230 PRINT#4, TAB<S>:C1 
240 PRINT#4, TAB<S>:S1$ 
250 PRINT#4, TRBC5?:52$ 
260 PRINT#4,TABCS):SIS$ 


270 PRINT#4.TAB<C42): 11: TAEC1BSN:RDE 


280 PRINT#4: PRINT#4. 

290 PRINT#4 

>00 PRINT#4 :PRINT#4:FRINT#4 
321 GOSUE 740 

330 GASIB SnDN 

340 GOTO 320 

5350 Si=I 

350 IFS1>OANDSISGTHENDE ‚25 
370 IFS1>SANGSI<ALITHEND=. 33 
380 IFS1>10THEND=.40 


390 REM S1I=MENGE W=KOSTEN FUER VERSAND UND VERPRCKUHG 


+00 IFSI<LSTHENU=2 
410 IFS1>14 ANDSI<ZOTHEHN=2.5 
420 IFS1>29ANDSI<5O THENVU=3 


9 


92 


IFE1 >49 ANDS1< 1 B0OTHENU=4 
IFS1 >99 THENU=S 


REM NEXT LINE INCREMEHTS INLÖOICE HUMBER 
Il=I1+r1 

R=INTCD*100+.5> 

GOTO 560 


G=0-1.065:R=G : GOSUELUSN:H$=SCF :LZ=eL 

A=0:6G0SUB 1090 

G$=D$:L1=L 

C=51*6 

A=0:5G0SUB 1090 

J$=STRECÜNIDIKS=5STRFCSLD 

PRINT#4, TABC{57 :N1: TABCS-LENCT$73:S1: TRB{L1O-LENIEFIH GES: 


PRINT#4. TRE<32-LENCEFI-L13:G$#: TABCLS-LENIGEH-L27:H#: TABX1S-LENCHFI-LI. DE 


C=51%*0: T=T+G 

RETURN 

D1=D*T 

DIi=INTCD1#100+,537100 

PRINT#4 

A=b1 :GCSUB 1U90 

FRINT#4, TABC3IP:R:TABE2I:"KRABATT= -": TABCZZ-L>3:DE 
FORF=1T0. 24-253 : PRINT#4 : NEXT 

A=T-D1:GOSUE 1090 

GF=DE:L1=L 


F=T-Di+U:M1=F*, 065 

A=M1:G60SUB 1090 

PRINT#4, TAE<CS54-L3:D$; " 5,5%": TAEX10-L13;6$ 
Yalt, 065: A='h: GOSUE 1090: 6GF=Db$ 


PRINT#4 : PRINT#4 : PRINT#4 

A=U:503UJB 1090 

PEINT#4, TAECS0O>:G$. " &,52"; TREC1IO-L3:C$ 
A=Mi+F+r':GOSUB 1090 

PEINT#4, TAB<C?71-L2:D$ 

GOSUB 950:560T0 150 

INPUT"WELCHE BESTELLHIUMMER" Hi 

IF Ni=0 THEN 350 

RES TORE 

RERD N,E$,O 

IFN=1THEN 5310 

IF H=HNi THEHN 830 

GOTD 770 

PRINT "BESTELLNUMMER NICHT GEFIINDEN" 

GOTO 740 

INPUT"WIENIEL STIECK VOH DIESER BESTELLNUMMER?" :S51 
GOELE 1300 

I=1+$51:25=25+1 

RETURN 

REM HIER KOMMEN DIE PRODUKTE HINEIN 

DATA 20, "OPERRATIONSVERSTREREER", 19,80 

DATA 113. "BASIC-PRÄGRAMMTERHÄHDBLICH" , 19.30 
DATA 1000, "57 PROGRAMME IN BASIC",3S.00 
DATA 110, "PET PROGRAMMIERHANDELICH" , 29,80 
DATA 31,"57 PROGR, I. BASIC DEUTSCH" ,39. 00 
DATA 104. "1000 ELEKTROHNIE SCHALTG" .43, 00 
DATA 112, "PASCAL-PROGRAMMIERHÄNDBUCH" , 29.80 
DATA 324." TINY BASIC HANDBLCH", 19,80 

DRTA 101, "CB-HÄNDBUCH F. HOBEYF.".19.50 
ECATA 109, "&502 PROGRAMMIERHÄAHLBBUCH" , 29,80 
DATA 110,"PET PROÖGRAMMIERHANDEUCH" 23.50 
DATA 1,"1",0 

RETURN 


a4 END 

950 PRINT#4:PRINT#4 

95U FRINT#4." ING, W. HOFACKER GMBH" 

970 FRINT#4:PRINT#4. "TEGERNSEERETR, 18" 
Gen FPRINT#4:PRINT#4; "3150 HOLZEIRCHEN" 
90 FORZU=1TC9 


1050 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1030 
100 
1100 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1300 
1310 
1320 
1550 
1360 
1370 
1400 
1410 
1415 
1420 
1428 
1427 
1430 
1440 
1450 
14&0 
RERD' , 


PRINT#4 

NEKTZU 

PRINT#4, TAB<30>;51$ 
PRINT#4 :PRINT#4, TAB<302:52% 
FRINT#4 : PRINT#4 : PRINT#4 
PRINT#4. 538: TAB<30> ; 83$ 
PRINT#4 : PRINT#4 : PRINT#4 : PRINT#4 : PRINT#4 
z8=0 

RETURN 

Kig="g" 

Kzs=", 00" 
B=INT<A*100+.,55-100 
D1$=STR$CB) 

DO=E*10 

D2=INTCbO) 

b3=D0-D2 

IF D3<0.03THEN 1200 
D$=D1$ 

GOTO 12650 

D4=INTCB) 

DS=B-D4 

IF D5<0.09 THEN 1250 
D$=DI$+K1$ 

GOTO1260 

D$=DI$+K.2$ 

L=LEN<DS$) 

RETURN 

FORR1=1T010 

IFTERL, 13=NIORTER1, 13=0THEN1350 
NEXTR1 

TERL1D=NI 
TCR1,23=TCR1., 29+81 
RETURN 


PRINT#4 : PRINT#4 : PRINT#4 

PRINT#4. "BESTELLNR. ": TABS 125; "VERKAUFT" 
PRINT#4 

FORR1=1TO10 


IFTCR1, 13=0THEN1450 
J$=5TR$CTCRL,1>> 


PRINT#4, TAB“ 23: TER1, 13: TABCAD-LENC IS: D:TERL1, 22 


NESTRI 
LLOSE4,4 
END 
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READYSOFT Formular ©Copyright by Ing. W. Hofacker GmbH 1980 


(Postleitzahl) (Ort) 


Für kurze Mitteilungen an den Empfänger 


Auftragsbestätigung und Rechnung 


Rechnungs-Nr. Rechnungs-Datum 


nn 


Brutto- Nettopreis Nettopreis 
Tii/Bercrung Fu 


NEE ae nz BEE teil I 
Mehrwertsteuer Warenwert Netto 
Eigentumsvorbehalt nach $ 455 BGB. 
Es gelten unsere Lieferungs- u. Zahlungsbedingungen 
Rechnungsbetrag 


Bitte frei lassen zum Aufkleben des Pakeinummernzettels 


Vermerke über besondere Versendungsfor nen 
und Vorausverfügungen 


Bitte Doppel der Aufschrift in die Sendung legen! 


(Straße und Hausnummer oder Paketausgabe) 


Postleitzahl bitte besonders groß und auffällig angeben! (Bestimmungson) 


nm 


POLY-OPTI 


In Physik und Technik ist es oft nötig, durch 
eine Schar von Meßpunkten eine durchgehende 
Kurve zu ziehen, um nämlich y-Werte für Stellen 
auf der x-Achse zu bekommen, an denen kein 
Meßwert vorliegt. Oder die Meßwerte sind so 
ungenau, daß sie selbst gar keine glatte Kurve er- 
geben würden. 


Polynomapproximation 


Mathematisch betrachtet braucht man also eine 
Funktion, die diese approximierende (nähernde) 
Kurve darstellt. Da keine einzelne bekannte 
Funktion alle vorkommenden Kurvenformen 
darstellen kann, muß man immer mehrere kom- 
binieren. Wenn man sie linear kombiniert, d.h. 
jede mit einem eigenen Faktor c; versieht und 
diese Produkte alle zusammenzählt, kann man 
auch eine Berechnungsvorschrift für die Ko- 
effizienten c; herausbekommen. Das geht so, 
daß man mathematisch ausrechnet, mit welchem 
Satz von Koeffizienten die Näherungskurve am 
genauesten durch die vorgegebenen Meßpunkte 
geht. Als Maß für die Genauigkeit nimmt man 
die Fehlerquadratsumme: Man nehme die Diffe- 
renz aus dem y-Wert eines Meßpunkts und des 
Punkts auf der Näherungskurve an derselben 
x-Stelle, quadriere diese Differenz und addiere 
alle diese Quadrate von allen Meßpunkten zu- 
sammen. Mit Hilfe der Differentialrechnung er- 
hält man Bedingungsgleichungen dafür, bei wel- 
chen c-Werten die Fehlerquadratsumme am 
kleinsten wird. Die Bedingungsgleichungen 
bilden ein lineares Gleichungssystem (m Glei- 
chungen mit m Unbekannten), aus dem die Ko- 
effizienten cj errechnet werden können. 


Bisher war die Rede von praktisch beliebigen 
Funktionen, die kombiniert werden sollen. Für 
ganz spezielle Fälle kann man sich tatsächlich 
Gedanken über eine sinnvolle Wahl der Funktio- 
nen machen, in der Alltagspraxis kommt man 
aber mit zwei Grundtypen aus: 


a) bei periodischen Abläufen wählt man Sinus- 


Poly-Opti 


und Cosinus-Funktionen und ihre Oberwellen 
(Fourieranalyse), 


b) sonst Polynome (1 xx2, x3, xd, | 


Das vorliegende Programm führt eine solche 
Polynomapproximation aus, indem es zu vorge- 
gebenen Meßpunkten ein Polynom 
YVSCcm+Cm-1X+Cm-2%2 +... +cgxm 
findet, das möglichst genau durch die Punkte 
geht. 


Nun haben aber Polynome einen Nachteil: So- 
bald der Grad m eines Polynoms groß wird, 
passiert es leicht, daß die Kurve nicht mehr 
schön glatt ist, sondern stark wellig ist (os- 
zilliert). Von Dr. K. Dettmer stammt dazu der 
Vorschlag, sich nicht von vornherein auf einen 
bestimmten Polynomgrad festzulegen, sondern 
die Approximation mehrmals mit jeweils steigen- 
dem Grad durchzuführen, bis die Fehlerquadrat- 
summe nicht mehr kleiner wird. 


So kann man also bei diesem Programm einen 
minimalen (MA, mindestens = 1) und einen ma- 
ximalen (MM) Polynomgrad angeben, zwischen 
denen das Optimum gesucht wird. 


Außer diesen beiden Zahlen müssen noch die 
Punktanzahl N und die Punkte selbst (jeweils 
mit x- und y-Wert) eingegeben werden. 


Zur Sicherheit gegen Vertippen bei größeren 
Datenmengen können diese Eingaben auch als 
DATA-Zeilen ins Programm eingebaut und 
weggespeichert werden. 


Das Programm ist weitestgehend selbster- 
klärend. Zu Beginn wird eine Beschreibung auf 
dem Schirm gelistet, die auch angibt, welche 
Variablen was enthalten, damit der Benutzer 
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gegebenenfalls selbst Zusätze einbringen kann. 
Z. B. kann es gewünscht sein, sich die optimierte 
Kurve am Schluß in Form einer auf die Spezielle 
Anwendung zugeschnittenen Tabelle auf einem 
Printer abdrucken zu lassen. 


Als erste Eingabe wird vom Programm ein M 
oder D für manuelle bzw. DATA-Eingabe er- 
fragt. Wird die manuelle Eingabe gewählt, 
werden die jeweiligen Daten in Klartext ange- 
fordert. 


Sind alle Punkte eingegeben, werden in Zeilen 
116 — 119 immer wieder gebrauchte Werte S(l) 
berechnet, die später die Matrizen und die rech- 
ten Seiten der Gleichungssysteme füllen. Ein 
Gleichungssystem wird nämlich geschrieben als: 
Matrix A mal Unbekanntenvektor C gleich Vek- 
tor B der rechten Seite. 


Für jeden Polynomgrad (angefangen mit MA) 
wird dann der Koeffizientsatz C bestimmt (Zeile 
130: Füllen — und Zeilen 300 — 340: Lösen des 
Gleichungssystems). Als Ergebnis werden der 
Grad und die Fehlerquadratsumme ausgedruckt. 
Wird letztere nicht mehr kleiner, wird der als 
vorletzter behandelte Grad als Optimum ange- 
sehen und weiterverwendet (Zeilen 690 — 700). 


Zum Schluß werden in Tabellenform die Ko- 
effizienten CO)I) und die "korrigierten” Punkte 
YO(l) ausgedruckt, das sind die y-Werte des 
optimalen Polynoms zu denselben X(l)-Werten 
wie die eingegebenen Meßpunkte. 


Im Programm ist am Ende ein Beispieldatensatz 
eingebaut, dessen Punkte der Gleichung y = x3 
gehorchen, was durch einen Programmlauf be- 
stätigt werden kann (D für DATA-Eingabe ein- 
tippen). 


Falls Sie ab Zeile 810 noch eigene Zusätze ein- 
bauen wollen, gebe ich hier an, wie Sie aus den 
Koeffizienten CO(l) und einem X-Wert einen 
Y-Wert nach dem Horner-Schema errechnen 
können: 


Y=C0(0) : FOR 1=1 TOM: Y=Y *X + Col): 
NEXT 


Wegen der endlichen Größe des RAM-Speichers 
kann der PET nicht unendlich viele Meßpunkte 
verkraften, in der 8K-Version sind es jedoch 


immerhin schon etwa 100 (Variable N), bei 
größerem RAM-Speicher entsprechend mehr. 
Das gilt allerdings nur, wenn der maximale 
Polynomgrad MM nicht größer als 15 ist, sonst 
werden es noch viel weniger. 


Beim alten PET 2001 darf MM aber sowieso nie 
größer als 15 werden, weil eine Matrix A mit 
MMxMM Elementen gebraucht wird, und sowas 
beim alten PET nie mehr als 256 Elemente 
haben darf (Index 0 mitzählen). Daher darf beim 
alten PET auch die Punktanzahl N (selbst bei 
eingebauter Speichererweiterung) den Wert 
255 nicht übersteigen. 


Als weitere Einschränkung ist nur noch anzu- 
führen, daß der minimale Polynomgrad MA 
immer mindestens 1 sein muß (gibt Geradenaus- 
gleich, "lineare Regression‘) und daß der maxi- 
male Grad MM immer mindestens um 1 kleiner 
als die Punktanzahl N sein muß. 


Programm POLY-OPTI 

Polynomausgleich mit Optimierung des Poly- 
nomgrades. 

Einzugeben sind der minimale Grad MA, der 
maximale Grad MM und die Anzahl N der Meß- 
punkte. 

Anschließend werden die einzelnen Punktko- 
ordinaten angefordert. 

Ab Zeile 810 können weitere Rechnungen ange- 
fügt werden. Die eingegebenen Koordinaten 
stehen in X und Y und die korrigierten Ordi- 
nanten in YO (Indices jeweils 1,...,N). 

Die optimierten Polynomkoeffizienten stehen 
in CO (Indeces 0,.. .‚M ‚: 0 bei höchster Potenz 
M). 

Eingabe manuell (M) oder aus DATA-Zeilen 
(D)?D 


MA,MM,N:1 45 
Eingegebene Punkte (1,X(l), Y(I): 
0 


1 0 

2 1 1 
3 2 8 
4 1 —1 
5 3 27 


weiter mit beliebigem Tastendruck 


Grad, Fehlersumme: 1, 140.4 
Grad, Fehlersumme: 1, 140.4 
Grad, Fehlersumme: 3,0 
Grad, Fehlersumem: 4,0 


Optimaler Grad: 3 | Korrigierte Punkte, (1, X{1), YO(I): 


Fehlersumme: 0 1 0 0 
Weiter mit beliebigem Tastendruck 2 1 1 
Koeffizienten, (l, Potenz, CO(I)}: ; s _ 
Nr.0X 311 5 3 27 


Nr.1X 2A0 
Nr.2X 1A0 
Nr.3X 040 
weiter mit beliebigem Tastendruck 


1a PRINT"Z2 PROGRAM APOLY-OPT IM 

38 FRINT"POLYNOMAUSGLEICH MIT OPTIMIERUNG" 

31 PRINT"DES POLYNOMGRADESM" 

32 PRINT"EINZUGEBEN SIND DER MINIMALE GRAD MR, DER MAXIMALE GRAD MM UND DIE 
33 PRINT"ANZAHL N DER MESSPUNKTE. M" 

34 PRINT"ANSCHLIESSEND WERDEN DIE EINZELNEN" 

35 PRINT"PUNKTKOORDINATEN ANGEFORDERT. M" 

48 PRINT"AB ZEILE 814 KOENNEN WEITERE RECHNUNGEN" 

41 FRINT"ANGEFUEGT WERDEN. DIE EINGEGEBENEN" 

42. PRINT"KOORDINATEN STEHEN IN % UND Y" 

43 PRINT"UND DIE KORRIGIERTEN ORDINATEN IN YO" 

44 PRINT"CINDICES JEWEILS 1:.....1)." 

45 FRINT"DIE OPTIMIERTEN POLYNOMKOEFFITZIENTEN" 

46 PRINT"STEHEN IN C8 <INDICES @.....M ; @ BEI" 

47 PRINT"HOECHSTER POTENZ MIR" 

S@ PRINT"EINGABE MANUELL (CM> ODER AUS 

51 INPUT"DATA-ZEILEN <D> ";M$ 

32 IFM$<>"M"ANDM$<>"D"THENSO 

68 IFM$="D"THENRERDMR, MM, N:PRINT"MMA, MM, N: ";MA;MMEN:GOTO1B1 

188 INPUT"MITMIN.GRAD, MAX.GRAD, PKTANZ. ";MA,MM,N: PRINT 

191 IFN<=MMTHENPRINT"MGRAD ZU GROSS!" :END 

182 DIMACMM, MM, CCMM), CACMM> . BEMMD , SCMMK#3+1) 

103 real YOcN?,YICNd.KCNAARCN? 

184 WS="MWEITER MIT BELIEBIGEM TASTENDRUCK" 

185 IFM$="M"THEN110 

186 PRINT"WEINGEGEBENE PUNKTE (I, XCI3, YCIDI:M 

187 FORI=1TON: RERDXCTP, VOIP :PRINTT; TABSFIXCTDTABGC24 3 YCID NEXT: PRINTW$ 
198 GETM$: IFM$=""THEN188 

189 G0TO116 

118 FORI=1TON:PRINT"PKT NR. "TI; TRBC133: "8, "5: INPUTSCID,VCID:NEXT 
116 FORI=1TON:XXCDd=1:NEXT 

117 FORI=OTO2#MM:S=9:FORJ=1TON:S=S+XXCJ> :NEXT:SCII=S: IFI>MMTHEN119 
118 S=8:FORJ=1TON:S=S+HY CPI ERRCTI NEXT: SC2#MM+1+13=S 

119 FORJ=1TON:RRCDERREDERETI NEXT: NEXT :SCO)=N 

128 M=MA-1: PRINT 

125 M=M+1: IFM=MATHEN138 

127 FORI=SBTOM-1:CBCI2=CCI> :NEAT 

128 FORI=S1TON :YOcCI>=YiCI>:NEAT 

129 IFM>MMTHENFO=F1:GOTO78B 

138 FORI=8TOM: FORI=OTOM:ACI, T=SCZ#M-I-TI:NEXT:BCII=SSCAKMM+1+M-I3 : NEXT 
388 FORI=UTOM-1:FORJ=I+1TOM:F=ACJ, TIP /ACI, ID 

338 FÜRK=I+1TOM: ACT. Kd=SRCT.KI-RCLHLKDHF NEXT: BETDD=SBETD BEDARF NEXT: NEXT 
498 CCM>=BCM)/’RCH,M>3:FORI=1TOM:K=M-1:5=0 

438 FORI=K+1 TOM: S=S+ACK, II#CCI3 NEXT :CCKI=CBCK)-SP/ACK,K) NEXT 

600 IFM>MATHENFO=SFi 

618 F1=8:FORI=1TON:S=C(8) :: FOR T=1TOM: S=SKX CI +CC ID: NEST 

658 YICI3=S:Fil=Fi+rlS-VCIIIRC5S-TEIDI: NEXT 

588 PRINT" GRAD. FEHLERSUMME:";M;","; Fl 
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698 IFM=MAORFi<FOTHEN125 

788 M=M-1: PRINT" MMSOPTIMALER GRAD: ";M 

r28 PRINT" FEHLERSUMME "";FO:PRINTWS 

r25 GETM$: IFM$=""THEN?2S 

738 PRINT"MSKOEFFIZIENTEN, <I, POTENZ, CECIY>:M" 

758 FORI=8TOM:PRINT"NR. "I: TAB<CS3; "8% #";M-1: TABC209;CBC12 : NEXT: PRINTW$ 
738 GETM$: IFM$=""THEN?SO 

798 PRINT"MAKORRIGIERTE PUNKTE, (I, CI. YOcID3: m" 

SR a 


REM 
991 REM REIHENFOLGE BEI DATR-EINGABE: 
992 REM MIN.-,; MAX. -GRAD, PUNKTANZAHL 
994 REM PUNKTE JEWEILS X%,Y. 
996 REM 
9398 REM BEISPIELDATEN: 
1988 DATR1.4,5.8,0,1.1,2,8,-1,-1.,3,27 


READY. 
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Druckaufbereitung 


DRUCKAUFBEREITUNG 


1. Problemstellung 

Usprünglich konzipierte man die BASIC-Pro- 
grammiersprache für technisch-wissenschaftliche 
Anwendungen. Inzwischen wurde bei zahl- 
reichen Systemen — so z. B. bei CBM (PET) - 
ihr Sprachumfang so erweitert, daß mit BASIC 
auch zahlreiche kommerzielle Probleme einfach 
zu lösen sind. 


Etwas größeren Aufwand verursacht (u. a.) noch 
die Druckaufbereitung, wenn es die Aufgaben- 
stellung erfordert, Zahlen auf zwei Dezimalen 
genau (häufigster Fall: Geldbeträge) dezimal- 
punktgerecht untereinanderzuschreiben. Die 
Schwierigkeiten entstehen vor allem dadurch, 
daß in BASIC sowohl führende als auch nachge- 
zogene Nullen unterdrückt werden. Mit dem 
unten aufgeführten Programm wollen wir eine 
Lösungsmöglichkeit aufzeigen. 


2. Erläuterungen zum Programmablaufplan 


2.1 Hauptprogramm 

Aus Gründen der besseren Überschaubarkeit 
untergliederten wir unser Programm in das 
HAUPTPROGRAMM und in die hieraus auf- 
gerufenen UNTERPROGRAMME 


UP-VORLAUF, 
UP-LESEN, 
UP-RUNDEN, 
UP-ERGAENZEN und 
UP-AUSGABE. 


Bei Übernahme des Programms für einen kon- 
kreten Anwendungsfall empfiehlt es sich, die 
obigen Unterprogramme zu einem einzigen Mo- 
dul zusammenzufassen (Vgl. Abb. 1: HAUPT- 
PROGRAMM). 


Haupt- 
Programm 


UP- 
VORLAUF 


LESEN 


JA END 


UP- 
ERGAENZEN 


UP- 
AUSGABE 


Abb. 1: Hauptprogramm 


2.2 UP-VORLAUF 

Im noch zu behandelnden Unterprogramm UP- 
RUNDEN werden die auszugebenden Zahlen auf 
zwei Dezimalen genau gerundet. Da in BASIC — 


99 


100 


wie wir oben schon ausführten — nachgezogene 
Nullen unterdrückt werden, können wir hin- 
sichtlich des Erscheinungsbildes der Zahlen 
folgende drei Alternativen unterscheiden: 


1) keine Ziffern nach dem Dezimalpunkt: 


Erscheinungsbild (z. B.) 100 
2) 1 Ziffer nach dem Dezimalpunkt: 
Erscheinungsbild (z. B.) 100.7 


3) 2 Ziffern nach dem Dezimalpunkt: 
Erscheinungsbild (z. B.) 100.73 


Für die Druckausgabe muß bei Alternative (1) 
00” und bei Alternative (2) "0 ergänzt 
werden. Diese Zeichen definieren wir als Strings 
(K2$ und K1$) im Unterprogramm UP-VOR- 
LAUF. Bei Vorliegen der Alternative (3) erübrigt 
sich jede "Ergänzungsmaßnahme”. 


In Z legen wir fest, an welcher Schreibstelle die 
Zahl rechtsbündig ausgegeben werden soll (Vgl. 
Abb. 2: UP-VORLAUF). 


UP- 
VORLAUF 


RETURN 


Abb. 2: UP-VORLAUF 


2.3 UP-LESEN 
Statt der in unserem Unterprogramm UP-LESEN 
aufgeführten Befehle (READ/DATA) wird man 


bei kaufmännischen Anwendungen zweck- 
mäßigerweise den INPUT-Befehl verwenden. 
Außerdem werden die für die Ausgabe aufzu- 
bereitenden Beträge meistens aufgrund von 
Rechenoperationen entstehen. Will man beim 
Einlesen keinen numerischen Wert als Ende- 
kriterium (in unserem Fall: A = 0: vgl. Abb. 1) 
verwenden, dann sind die Zahlen als String 
einzugeben und nach der EOF-Abfrage (z. B. 
AS = ” /*”) in einen numerischen Ausdruck 
umzuwandeln (A = VAL(A$)). (Vgl. Abb. 3: 
UP-LESEN). 


(READ/ 


DATA oder 
INPUT) 


RETURN 


Abb. 3: UP-LESEN 


2.4 UP-RUNDEN 

Das "kaufmännische Runden” führen wir mit 
einem einzigen BASIC-Befehl (LET B = INT 
(A*100+0.5/100) durch (vgl. Abb. 4: UP- 
RUNDEN). Die Wirkungsweise des Befehls 
sei an den folgenden zwei Beispielen erläutert. 


1. Beispiel: 
A (vor dem Runden) = 17.9658 
A*100 —»> 1796.58 
+0.5 —> 05 
1797.08 
INT(A*100+0.5) —»1797 


INT(A*100+0.5)/100 .—e 1797 —B 
(B = kaufmännisch gerundete Zahl) 


2. Beispiel: 
A (vor dem Runden) = 17.9648 
A*100 —1796.48 
+0.5 — > 05 
1796.98 
INT(A*100+0.5) —>1796 


INT(A*100+0.5)/100-_— 1796—»B 
(B = kaufmännisch gerundete Zahl) 


Befehle 


5000 
5010 


5020 


5030 


5040 
5050 
5060 
5070 


5080 


5090 


5100 
5110 
5120 


5130 


5140 


5150 D3 = 
D1$3 + K2$ 


5160 RETURN 


Abb. 5: UP-ERGAENZEN 


u -Te.h.8 hat 2 Dezimale 


genommen zu werden. 


A gerundet 


Abb. 4: UP-RUNDEN 


d.h. für Zwecke der Ausgabe 


— nn m FE: keine Ergänzung vor- 


- --. fa. h. B hat 1 Dezimale 


EUREN -{ Ergänzung einer '0" 


u rn -I Ergänzung von ".00" 


’ 
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2.5 UP-ERGAENZEN 

Im Unterprogramm UP-ERGAENZEN wird das 
Aussehen’ der auszugebenden Zahlen unter- 
sucht und ggf. ”.00” oder "0" ergänzt. Die Vor- 
gehensweise ergibt sich aus dem Programmab- 
laufplan (vgl. Abb. 5: UP-ERGAENZEN). 


Nur zu den Befehlen in den Zeilen 5070 und 
5120 sei angemerkt, daß die Abfragen 


"IF D&0.09...” bzw. 
"IF D5<0.09.. 


verständlicher wären, wenn sie 


"IF D3=:20 ...” bzw. 
"iF D50 ...” 


lauten würden. Die logisch etwas weniger ein- 
sichtigen Abfragen mußten wegen systembe- 
dingter Ungenauigkeiten gewählt werden. 


Statt der arithmetischen Vorgehensweise” 
können für die Analyse der auszugebenden 
Zahlen auch ausschließlich String-Befehle ver- 
wendet werden. Das entsprechende Unterpro- 
gramm ist am Ende des Source-Listing aufge- 
führt. (Es ist aber zu beachten, das sich die in 
Abb. 5 aufgeführten Befehle/Zeilennummern auf 
die ""arithmetische Version” beziehen.) 


3. Source-Listing 


2.6. UP-AUSGABE 

Die Druckposition ergibt sich aus dem im Unter- 
programm UP-VORLAUF festgelegten Wert Z 
abzüglich der in L gespeicherten Länge der Zahl 
(vgl. Abb. 6: UP-AUSGABE). 


Drucken 
Zahl an 

Position 
Zz-L 


RETURN 


Abb. 6: UP-AUSGABE 


2.7. Ergänzende Hinweise 

Falls die Funktionsweise des Programms nicht 
durchschaut wird, empfiehlt es sich, mit vorher 
festgelegten Daten einen "Schreibtischtest ” 
durchzuführen. Das Verständnis ergibt sich dann 
fast "von selbst”. Hierbei wird natürlich ange- 
nommen, daß die Wirkungsweise der Befehle 
bekannt ist. 


10 REM PROGRAMM "DRUCKAUFBEREITUNG" 

20 REM PROGRAMMIERSPRACHE. BASIC(CBM) 
1000 REM +++++++++tt++tt tr tr tt tt rt tr rt 
1010 REM + HAUPTPROGRMM + 
1020 REM ++++++t++t+t tr tt Hr Hr rt tr rt rt 
1030 GDSUB 2000 . REM (UP-VORLAUF) 
1040 GOSUB 3000 „. REM (UP--LESEN) 

1050 IF A = O0 THEN 1100 

1060 GOSUB 4000 „ REM (UP-RUNDEN) 

1070 GOSUB 5000 . REM (UP-ERGAENZUNG) 
1080 GOSUB 6000 . REM (UP-AUSGABE) 
1090 GOTO 1040 

1100 END 

2000 REM ++tt++rt+t+t+ tr tt tr rt rt Hr rt tr 
2010 REM + UP-VORLAUF + 
2020 REM ++t+4+4+4+4+t + tt tt Hr HH Hr rt 
2030 LET Ki$ = "0" 
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2040 
2050 
2060 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
4000 
4910 
4020 
4030 
4940 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
6000 
6010 
65020 
65030 
6040 
6050 


READY. 


LET K2$ = ".00" 

LET Z = 25 

RETURN 

REM +++ 4Htr tt HH HH tr HH rt + 
REM + UP-LESEN + 
REM +44 444444 rt tt HH 
READ A 

RETURN 


DATA 1, 1., 2.3, 45.67: 7.891 
DATA 175.218: 300.005, 9.00123 


DATA 0 
REM +++++++t4+4+ +4 tt rt rt rt tr + 
REM + UP-RUNDEN + 


REM ++++++++4++4+t+t+tt rt tr tr tr rt 
LET B = INT(A#100+0.5)7/100 


RETURN 
REM ++++++++++tt+ttt tt rt rt rt tr Hr 
REM + UP-ERGAENZEN + 


REM ++++++4+4+ +++ tt tr tr tt rt rt tr tr 
LET Di$ = STR$(B) 


LET Di =B * 10 
LET D2 = INT(DI) 
LET D3 = Di - D2 


IF D3 < 0.09 THEN 5100 
LET D$ = D1$ 

GOTO 5160 

LET D4 = INT(B) 

LETDS = B- D4 

IF D5 < 0.09 THEN 5150 
LET D$ = D1$ + Ki1$ 


GOTO 5160 

LET D$ = Di$ + K2$ 

RETURN 

REM ++ +++ +4 tr tt rt tr Hr hr + 
REM + UP-AUSGABE # 


REM +++ ++4+++4+ + tt tt rt rt tr Hr ht Hr 
LET L = LEN(D$) 

PRINT TAB(Z-L)D$ 

RETURN 


Alternative für Unterprogramm 
UP-ERGAENZEN 


3000 
Solo 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
sS110 
5120 
5130 
5140 
5150 


READY. 


REM +++++++++r + tr tt tr tr rt rt rt rt r+ 
REM +  UP-ERGAENZEN/ALTERN. + 
REM +++++++4+ +++ +++ tt rt tr tr Hr rt 
LET Di$ = STR$(B) 

LET D2$ = RIGHT$(Di$s,3) 


LET D3$ = LEFT$(D2$,1) 
IF D3$ = "." THEN 51490 
LET D4$ = RIGHT$(D1$,2) 
LET DS$ = LEFT$(D4$,1) 
IF D5S$ = "." THEN 5120 
LET D$ = Di$ + K2$ 
GOTO 5150 

LET D$ = Di$ + K1$ 

GOTO 5150 

LET D$ = Di$ 

RETURN 
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NOTIZEN 
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ROM-Vergleichsliste 
PET/GBM und GBM/PET 


ROM-Vergleichsliste 


Die nachfolgende ROM-Vergleichsliste soll es Ihnen ermöglichen, 
Programme die für eine bestimmte ROM-Version geschrieben sind für 
eine andere ROM-Version umzuschreiben. Commodore hat bis heute 
vier verschiedene ROM-Versionen in seiner PET/CBM-Serie verwendet. 


1. Version 1 (uralt) in den ersten PETs eingebaut 

2. Version 2 ROMs in der 2001 Serie bekannt unter alte ROMs 
3. Version 3 ROMs in der 3001 Serie bekannt als neue ROMs 
4. Version 4 Ende 1980/Anfang 1981 


BASIC-Programme laufen grundsätzlich auf allen PETs/CBMs egal 
welches ROM die Maschinen enthalten. 

Programme die jedoch irgend welche Maschinenprogramme oder 
PEEK, POKE oder SYS in die ZERO-Page enthalten, müssen geändert 
werden. Meist ist dies jedoch auch für den ungeübten Programmierer 
kein Problem. 


Sie starten das Programm und verfolgen den Ablauf. Wo Fehler auf- 
treten, sehen Sie nach. Wenn sich in dieser Zeile ein PEEK, POKE 
oder SYS in die ZERO-Page befindet schreiben Sie sich den Wert 
heraus, sehen in der Vergleichsliste nach und setzen den neuen Wert 
ein. Die ROM-Vergleichsliste bietet Ihnen die Möglichkeit von Version 
2 auf Version 3 oder auch umgekehrt zu schreiben. 
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NOTIZEN 


Wichtige Routinen 
in PET-BASIG 


A few routines from PET basic 


C2AC-C2D9 peeks at the stack for an active FOR loop 

C2AD-C31C '!opens un! a space in Basic for insertion of a new linex. 
C31D-C329 tests for stack-too-deep and aborts if found. 

C32A-C356 check available memory space 

C357-C388 sends a canned error message from C190 area, then droos into: 
C389-C391 Signals 'ready' 

C39h,-C3A9 gets a line of input, analyzes it, executes it 


C2AC-Ch?2E handles a new line 2m of Rasic from kevboard; deletes old line, etc. 


Ch 30-Cl60 corrects the chaining between Basic lines after insert/delete 
Ch&2-Ch76 receives a line from the keybaard into the Basic buffer 
Ch79-Ch8C gets each character from keyaboard 

Ch8D-C521 looks un the keywords in an input lines and changes to "tokens" 
Cc522-C550 searches for the loaation of a Basic line from mımber in 8,9 
C551-C599 imolements NEW command - clesrs everything 

CS9A-C5A7 sets the Basic nointer to start-of-program 

CSABd-C6LF performs LIST command 

C6oh9-EC68F executes a FÜR statement 

C692-C6Bl, continues to build 22 FOR vectors 

C6B5-C6EF reads and executes tne next Basic statement, finds next line, etc. 
C6F2-C70A executes the Basic Command as a subroutine 

C70D-C71B performs RESTORE 

C71C-C7L2 handles STOP, END, and BREAK procedures. 

C715-C75E performs CONT 

C75F-C76D set pause after carriage return (never called) 

C770-C772 verforms CLR 

Cc775-C77D performs RUN 

Cc780-C079A perforns GOSUB 

C79D-C7C9 performs GOTO 

C7CA-C7FD performs RETURN 

C7FE-C8lE scans for start of next Basic Line 

C820-C8l,0 performs IF 

c813-C862 verforms ON 

Cc863-C89A gets a fixed-point number from Basic and stores in 8,9 
C89D-CI1B performs IET 

CIIC-CITE check numeric digit/more string vointer 

CITF-C982 performs PRINT# 

C985-0996 performs CMD 

C999-CA2lı per”orms PRINT 

CA27-CAlLl prints zarmet string from ardress in Y,A 

CAlıh-CA76 vorints a character 

CA77-CA9SE handles bad input data 

CA9F-CAC5 verforms GET 

CAC6-CADF verforms INPUT? 

CAEO-CBU; performs INPUT 

CB17-CB21 promts and receives the input 

CB2h,-CC11 performs READ 
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CC12-CC35 
CC36-CC8F 
CC92-CIB5 
CCB8-CD38 
CD3a-CDIC 
CDID-CDB9 
CDBC-CDCO 
CDC1-CDE7 
CDE8-CDF& 
CDF7-CEOL 
CEOS 

CEOB 

CEOE 

CE11-CEIB 
CEIC-CE2O 
CE21-CE27 
CE28-CE39 
CE3B-CE96 
CE9I7-CED5 
CED6-CFOS 
CFO6-CF6D 
CF6E-CF7A 
CF7B-DOO® 
DOOF-DO78 
0079-0037 
DO88-D098 
D099-DOIT 


DO9ID-DOIBB 
DOB9-D263 
D26l,-D277 
D278-D28l, 
D285-D28A 
D28B-D29li 
D295-D348 
D3,9-D36A 
D36B-B3D1 
D3D2-DLO3 
DLOL-D5C3 
05Ch-D5D7 
D5D8-D65 3 
D651,-D662 
D663-0672 
D67 3-D68l, 
D685-D6C3 
D6CH-DECF 
D6DO-D6ES 
D6E6-D701 
D702-D71D 
D71E-D890 
D891-DEBE 
3BBF-DBFC 
D8FD-DISD 
DI55.-D988 
D989-DIAM 3 
DIBL-DIEO 
D9E1-DA 73 
DA T7L-DA98 


canned messages: REDO FROM START 
performs NEXT 
checks Basic format, data type, flags TY?E MISMATCH 
inputs and evaluates any expression (numeric or string) 
pushes a partially-evaluated argument to the stack 
evalues a numeric, variable, or pi, or. identifies other symbol 
value of pi in floating binary 
checks for special characters (+,-,",.) at start of expression 
performs NOT function 
checks for various functions 
evaluates expression within parentheses () 
checks for right parenthesis ) 
checks for left varentnesis ( 
checks for comma 
prints SYNTAX ERROR and exits 
sets up function for future evaluation 
set up a variable name search 
checks for special variables TI, TIö, and ST 
identifies and sets un function references 
perform the (R and AND functions 
verforms comparisons 
sets up DIM execution 
searches for a Basic variable 
creates a new Basic variable 
logs Basic variable location 
is array vointer subroutine 
is 32768 in floating binary 


is floating voint-to-fixed conversion for signed values 
locates and/or creates arrays 

verforms FRE function 

converts fixed noint-to-floating 

performs POS function 

checks direct/indirect command, gives "ILLEGAL DIRECT! 
executes DEF statements and evaluation Fix 

performs STB} ! 


EXTRA IGNORED; 


Zunction 
scans and sets up string elements 
builds string vectors 
does 'garbage collection! - discards unwanted strings 
performs CHR function 
performs LEFT$, RIGHT$, MID$ functions 
performs LEN, gets string length 
performs ASC function 
gets a single-byte value from Basic 
evaluates VAL function 
gets two arguments (16-bit and 8-bit) from Basic 
checks argument is in range 0-65535 
vperforms °EEK and POKE 
executes WAIT statenent 
performs addition and subtraction 
contains floating-point constants 
verforms LOG function 
performs mıltinlication 
loads secondary accumılator from memory ($B8 to BD) 
test and adjust primary/secondary accumlators 
routines to mıltinly or divide by 10 
verforms division 
loads primary accumılator from memory ($b9-$B5) 


LA99Y-DACD transfers primary accumulator to memory 


DACE-DADD 
DADS-DAEC 


transfers secondary accumulator to primary 
transfers orimry accumulator to secondary 


DAED-LAFC rounds the primary accumulator 

DAFD-DB29 extracts primary sign; verforms SGN function 
DB2A-DB2C performs ABS 

DB2D-DB6C compares primary accumulator to memory 

DB6D-DBID Convert Floating point to fixed, unsigned 
DBIE-DBCH verform INT function 

DBC5S-DChF convert ASCII string to floating point 

DC50-DCBl, get new ASCII digit 

DC9L-DCAE vrint Basic Line number 

PCAF-DDE2 convert floating voint to ASCII string (at 0100 uo) 
DDE3-DE23 conversion constants - decimal or clock 

DE2L-DE2D evaluation SAR function 

DE2E-DE66 evaluation of power function 

DE67-DE71 negate (monadic -) 

DEAO-DEF2 vderform EXP function 

DEF3-DF3C perform function series evaluation 

DFLS-DF9D perform RND calculation 

DFYIE evaluate COS function 

DFAS-DFED evaluate SIN function 

DFEE-EO19 evaluate TAN function 

EOh8-E077 evaluate AT. function 

EOBS-EOCC Basic scan program, transferred to 00C2-00D9 
EOD2-E173 completion of power-on-reset; memory test, etc. 
EI9B-ElBB partial test for TI and TI3 

ElBC-ElEO imut/read/get director 

ElEl-E27C initialize I/O registers. clear screen, reset subroutine 
E27D-E3C3 receive input from keyboard/screen 

E3Ch-E3E9 set up new screen line 

E3EA-ES2F output character to screen 

E530-E5DA check for and perform screen scrolling 

ESDB-E66A start new screen line 

E66B-E67D interrupt entry 

E6TE-E683 interrunt return 

E685-E732 hardware interruot routine: cursor flash, tape motor, 
E73F-E7A2 convert keyboard matrix to ASCII keyboard 
E7AC-E739 write-on-screen subroutine 

E7D3-E7ER print canned monitor message 

FOB6-F1CB IEES-1L88 channel wen, test, closa 

F1CC-F22F get imout character from keyvbaord, screen cassette, IES! 
F230-F27C outout character to screen, cassette. IE@E 
F27D-F2A3 restore normal I/O, clear IEEE channels 

F2Ah-F2AA abort (not close!) all files 

F2AB-F2B7 locate logical file table entry 

F2B8-F2C7 transfer file table entries to Device, Command 
F2C8-F329 perform file CLOSE 

F32A-F33E test stop key 


F33F-F3l5 test if direct/indirect command for suppressing file advice 
F3l,6-F3FE perform file LOAD 

F3FF-Fl21 print "SEARCHING .. " 

Fl22-Fl32 print "LOADING .. " or "VERIFYING" 

Flh33-Fl61 get parameters for LOAD and SAVE 

Fl62-Fl9l, perform IEEE sequences for LOAD, SAVE, and OPEN 
FL9S-FLBA search for specific tape header 

FUBB-FlD3 perform VZRIFY 

FuDh-F529 get parameters for OPEN and CLOSE 

FS2A-FSAD perform OPEN 

FSAE-FSE2 search for any tape header 

FSE3-FSEC clear tave buffer 

FSED-F6lC write tape header 

FölhD-F666 get start & end addresses from tape header 
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F667-F67C 
F67D-FOI, 
F695-F69D 
FEIE-F71B 
F71C-F735 
F736-F78A 
F7&B-F7DB 
F7DC-F82C 
F82D-FB2A 
F83B-F85D 
FBSE-F870 
F871-FBTE 
FBTF-F8B8 
F8B9-FEDL 
F8D2-F912 


Set buffer start adäress 

set tane buffer start and end pointers 
perform SYS command 

perform SAVE 

find umısed secondary address 

update clock 

set immut device 

set output device 

bum tape buffer counter 

wait for cassette PLAY switch 

test cassette switch line 

wait for cassette RECORD and PIAY switches 
read tape initiation routine 

write tave initiation rzoutine 
complete tape read or write 


F913-F91D wait for I/D comletion 


FI1E-FI2D 
FI2E-FISE 
FISF-FENB 
FBDC-FBEI, 
FBE5S-FBEB 
FBEC-FBFF 
FCOO-FC1B 
FE1C-FCFA 
FCFB-FD15 
FD16-FD37 
FD38-FDI,7 
FDL8-FD7B 
FD7C-FD8F 
FDIO-FDIA 
FDIB- FFB} 


FFED-FFFA 
FFFA-FFFB 
FFFC-FFFD 


test stop key and abort if necessary 
subroutine to set tave read tiring 
interruot routine for tape read 

save memory pointer 

set ST error flag 

subroutine to count 8 serial bits per byte 
subroutine to write a bit to tape 
interrupt 1 for tape write - entry at FC21 
terminate I/O and restore normal vectors 
subroutine to set interrupt vector 
power-on reset entry; test for diagnostic 
diagnostic routine 

checksum routine 

pointer advance subroutine 

diagnostic routines 

JUM? TABLE: 

OPEN 

CLOSE 

set input device 

set output device 

restore normal I/O devices 

irmwut character (from screen) 

outout character 

LOAD 


test ston key 

get character from keyboard buffer 
abort all I/O channels 

update clock 

turn off cassette motors 

NMI vector (mangled) 

reset vector 


FFFE-FFFF interrupt vector 
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TBB - Handbuch Band 1, W. Hofacker 


Transistor Berechnungs- und Bauanleitungshandbuch Band 1 


Das Handbuch für jeden Elektroniker. Rechenbeispiele, Berechnungsgrundlagen, Bauanlei- 
tungen, Nomogramme, Tabellen und Vergleichslisten aus den wichtigsten Bereichen der 
Elektronik. Ein Buch zum Einarbeiten in die Elektronik. Ein Buch zum Nachschlagen. 
Grundlagen Digitaltechnik, Netzgeräte und Transformatorenberechnung, Berechnung 

von Multivibratoren, Schmitt Trigger u. v. a. Über 130 Seiten. DM 19,80 


TBB - Handbuch Band 2 , W. Hofacker 


Transistor Berechnungs- und Bauanleitungshandbuch Band 2 


Dieses Buch ist die Fortsetzung des erfolgreichen Handbuches TBB-Handbuch Band 1. 
Ein Buch, das sich in der Hand des Praktikers bestens bewährt hat. Weitere neueste 
Schaltbeispiele und Berechnungsgrundlagen. Experimentier- und Versuchsbeschreibungen. 
Integrierte Spannungsregler, Wärmeableitung, Operationsverstärker Einführung, RC- 
Zeitglieder, Transistortester u. v.a. DM 19,80 


Elektronik im Auto , H. Gebauer 


Ein Buch für jeden technisch interessierten Autofahrer. Es zeigt Ihnen die vielen Möglich- 
keiten zur Verbesserung von Sicherheit, Leistung und Fahrkomfort in Ihrem Auto. 
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IC - Handbuch ‚C.Lorenz 
Handbuch für digitale und lineare integrierte Schaltungen. 


Sensationelle Neuheit. Ein Handbuch für digitale und lineare Schaltkreise. Daten- und 
Auswahllisten, Vergleichslisten, Gehäuseformen, Grundlagen, Einführungsbeschreibungen, 
viele Schaltbeispiele, Bauanleitungen, Printvorlagen, u. v.a. 

Alles über TTL-Technik, C MOS, MOS-Schaltungen, Uhren ICs, lineare Schaltungen, ein 
Chip-Rechner, integrierte NF-Verstärker u.v.a. DM 19,80 


IC - Datenbuch ‚D. Steinbach 


Daten- und Auswahllisten der gebräuchlichsten integrierten Schaltkreise. Digital und 
analog. Gerade bei ICs ist es wichtig die Anschlußfolgen genau zu kennen. Auf über 

55 Seiten finden Sie: Die wichtigsten TTL-Schaltkreise, C-Mos Serie, lineare Schaltungen 
wie Operationsverstärker, Komparatoren, NF-Verstärker, Spannungsregler, Trigger- 
schaltungen, Impulsgeber u. v. a. Weiterhin finden Sie eine C Mos-Vergleichsliste sowie 
Kurzdaten und logisches Verhalten dieser C MOS Elemente. Das IC-Datenbuch wird 
auch Ihnen ein unentbehrlicher Begleiter bei allen Arbeiten mit integrierten Schaltungen 
sein. DM 9,80 


IC - Schaltungen ‚,D. Steinbach 


Hier finden Sie eine gelungene Zusammenstellung der wichtigsten Anwendungsbeispiele 
aus dem Bereich der integrierten Schaltungen. TTL — C MOS — Linear. Alle Schaltungen 
sind übersichtlich und klar dargestellt und mit einer kurzen, jedoch sehr genauen Be- 
schreibung versehen. Viele Schaltungen sind Grundschaltungen, die man beim Umgang 
mit integrierten Schaltungen immer wieder benötigt. Tastenentprellung, Zähler, Impuls- 
geber, Codierer, Dekodierer, Datenübertragung, Serien-Parallel-Wandler, Digitalvoltmeter 


u.v.a. DM 9,80 
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Elektronik Schaltungen, 
4. völlig neu überarbeitete Auflage, W. Hofacker 


Die ideale Schaltungssammlung zum Basteln und Experimentieren. Schaltungen mit 
Operationsverstärkern, Spannungsregliern, TTL, C-MOS Schaltkreisen. MOS Uhr mit 
Wecker, elektronischer Würfel, Musik Synthisizer, Timer 555 Anwendungen, Experi- 
mentieranleitungen und viele andere hochinteressante Schaltbeispiele tiw. mit Print- 
vorlage. 64 Seiten Inhalt. DM5,- 


IC - Bauanleitungs -Handbuch -IC -KIT , 
C. Lorenz 


Ein Bauanleitungsbuch mit vielen hochinteressanten Bauanleitungen aus dem Bereich der. 
LSI Schaltungstechnik. Schaltbeispiele mit Printvorlagen zum Selbstherstellen der Leiter- 
platten mit genauesten Beschreibungen. Hochaktuell und brandneu: Funktionsgenerator 
XR 2206, MOS-Uhr mit Wecker, Schlummerautomatik und programmierbarem Weckton- 
generator, Sensortastenwahl, IC-Netzteil, Funktionsgenerator 8038 neuartige Transistor- 
zündung, 35 W NF-Verstärker, Experimentieranleitung und Grundkurs über Flip Flops, 
Experimente mit Digitalschaltungen u. v. a. Zu allen Schaltungen finden Sie Platinvor- 
lagen oder Sie können die Experimentierschaltungen auf der Experimentierplatine 

WH-1 g durchführen. Über 125 Seiten. DM 19,80 


Experimentierplatine mit Sockel, Stecker und Füßen Typ WH-ig 
für 40,28,24,16 und 14 polige DIL Gehäuse DM 79,- 


Feldeffekttransistoren, C. Lorenz 


Der Feldeffekttransistor (FET) gehört heute zu den interessantesten Bauteilen überhaupt. 
Wie man damit experimentiert, wie man seine Funktion versteht und wie man damit 
brauchbare und hochinteressante Schaltungen aufbauen kann, zeigt Ihnen dieses Buch. 
Grundlagen, Kennlinienfelder, Tabellen, Berechnungsgrundlagen, Rechenbeispiele, An- 
schlußbilder und eine Vergleichsliste für Feldeffekttransistoren bilden den Kern dieser 
umfangreichen Darstellung. Alles in allem finden Sie hier eine praxisnahe und komplette 
Arbeitsunterlage, mit der Sie im Beruf und auch im Hobby erfolgreich arbeiten können. 
Über 45 Seiten. DM 5, - 


Elektronik und Radio, C. Lorenz 
4. Auflage. Völlig neu bearbeitet und stark erweitert. 


Eine Einführung in die Radiotechnik, wie man sie nicht alle Tage findet. Eine sehr ge- 
schickt gemachte Einführung mit vielen Schaltungen, Bauanleitungen und genauesten 
Funktionsbeschreibungen. Vom einfachen Diodenempfänger (Detektor) bis zu interes- 
santen Sender- und Empfängerschaltungen. (Minispione) Viele hundert Bilder zeigen 
Ihnen genau, wie Sie beim Experimentieren vorgehen müssen. IC-Radio, IC-Sender, 
Antennen, Berechnungsgrundlagen, Tabellen u. v. a. Über 150 Seiten DM 19,80 


IC -Niederfrequenzverstärker , C.Lorenz 


Grundlagen der integrierten NF-Verstärker, Berechnung von kompletten IC-NF-Verstärker- 
stufen. Anwendungsbeispiele mit den interessantesten und gebräuchlichsten Standard 
IC-NF-Verstärkern wie TBA 800, TBA 830, usw. Printvorlagen, Auswahltabellen, Experi- 
mentieranleitungen und Anschlußbilder machen dieses Buch zu einem unentbehrlichen 
Begleiter für alle, die sich mit NF-Verstärkern beschäftigen wollen. Über 65 Seiten. 


DM 9,80 
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BIS BUCH, Beispiele integrierter Schaltunger 
H.Bermstein RR 


Auf über 130 Seiten Anwendungsbeispiele mit integrierten Schaltkreisen. Zeitgeber 555, 
Funktionsgenerator ICL 8038, Opto Elektronik, Operationsverstärker, Analogschalter, 
Digital-Analog-Wandler, Analoge Rechenbausteine, Schreib-Lese-Speicher (RAM), Fest- 
wertspeicher (ROM), Speicherschaltungen, Uhrenbausteine u. v. a. DM 19,80 


HEH, Hobby Elektronik Handbuch ‚, C. Lorenz 


Das Schaltungsbuch für jeden Hobbyelektroniker. Schaltbeispiele und Bauanleitungen 
aus dem gesamten Hobbybereich. Lichtorgeln, Eiswarngerät fürs Auto, Alarmanlagen, Me- 
tallsuchgerät, PLL-Schaltungen, Logik-Tester, Funktionsgeneratoren u. v. a. Über 


55 Seiten. DM 9,80 


IC - Vergleichsliste , C. Lorenz 
Vergleichsliste für digitale und lineare integrierte Schaltkreise. 


Standard TTL, Low Power Schottky TTL,C MOS, Triacs Thyristoren, Optoelektronik, 
Operationsverstärker, Spannungskomparatoren, Spannungsregler, NF-Verstärker u. v.a. 
Funktionsvergleichsliste CMOS zu TTL. Vergleichstabelle für Transistoren und Dioden 

sowie Darlingtontransistoren. Eine Vergleichsliste, die man immer wieder braucht. 


DM 29,80 


Opto -Handbuch, Handbuch für Opto- 
elektronik , C. Lorenz 


Das Handbuch für die gesamte Optoelektronik. Eine Einführung und ein ideales Nach- 
schlagwerk. Grundlagen, Definitionen aller Kenngrößen, Opto-Lexikon, Berechnungs- 
grundlagen, Rechenbeispiele, Schaltbeispiele: Lichtsender, Lichtempfänger, Anzeigen, 
Infrarot Detektoren, Lichtmeßgerät, Optokoppler, Pegelschalter, Opto-Vergleichsliste. 
Anschlußbilder wichtiger 7-Segment-Anzeigen u. v. a. Über 106 Seiten. DM 19,80 


C MOS Einführung, Entwurf, Schaltbeispiele, 
Teil 1, H.Bemstein 


Vom C MOS Gatterbaustein über Schieberegister und Zähler bis hin zum C MOS Schreib- 
Lesespeicher. Insgesamt werden neunzehn interessante und bekannte C MOS Schaltkreise 
beschrieben. Zu jedem Bauelement sind genaue Daten, Schaltbild und Anwendungsbei- 
spiele angegeben. Im großen Applikationsteil finden Sie: C MOS-Kippstufen, Addierwerke 
und Rechenschaltungen, Digital Analog Wandler, Schieberegister für analoge Spannungen, 
Multiplexsysteme für analoge Signale u. v. a. Eine komplette Einführung und gut geeignet 
für das Selbststudium der C MOS Technik. Über 140 Seiten. DM 19,80 


C MOS Entwurf und Schaltbeispiele, 
Teil 2, H.Bemstein 


Fortsetzung von Teil 1. Anwendungsbeispiele mit genauen Schaltungsbeschreibungen und 
Bauelementeunterlagen. Daten, Anschlußbelegungen weiterer wichtiger hochintegrierter 

C MOS Elemente. Ein komplettes Arbeits- und Experimentierbuch. C-MOS Uhrenschaltun- 
gen, Schieberegisterschaltungen, Parallei-Serien Umsetzung, statische und dynamische 
Speicherschaltungen, Zählschaltungen, Digital Analog Wandler, Analog Digital Wandler, 
Digital Voltmeter, I/O Registerschaltungen, Codier und Dekodierschaltungen. RAM und 
ROM Anwendungen. Über 140 Seiten. DM 19,80 
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C MOS Entwurf und Schaltbeispiele, Teil 3, 
H. Bernstein 


Fortsetzung von Teil 2. Eine sehr umfangreiche Applikationssammlung mit hochintegrier- 
ten C MOS Elementen. Rechnerschaltungen, Speicher- und Steuerschaltungen, Multiplex- 
und Datenbussysteme, Uhrenschaltungen, PLL-Schaltungen, Liquid Cristal Anzeigen und 
deren Treiberschaltungen, Optoelektronik in Verbindung mit C MOS. Grundlagen, Auf- 
bau und Wirkungsweise der Prozeßrechentechnik, Arithmetische Logische Einheiten (ALU) 
und andere wichtige Funktionen aus der Prozeßrechentechnik. RAMs, ROMs und FIFO- 
Speicherschaltungen. Über 140 Seiten. | DM 19,80 


IC Experimentier Handbuch - IC -EX, C. Lorenz 
C. Lorenz 


Eine sehr umfangreiche Schaltungssammlung und Bauanleitunssammlung mit neuesten‘ 
integrierten Bausteinen. Neue, jedoch beim Fachhandel erhältliche Standard ICs. Rechner- 
schaltungen, Mikroprozessoren, I/O Schaltungen, druckende und anzeigende Rechner, 
Stoppuhren, Zählerschaltungen, Digitalvoltmeter, professioneller Synthisizer, Hilfsschal- 
tungen für den Elektronik Experimenter, Analog Digital Wandler, Frequenzzähler u. v.a. 
hochinteressante Bauanleitungen. Viele Schaltungen können auf der IC KIT Experimen- 
tierplatine WH-1g aufgebaut werden. Über 120 Seiten. DM 19,80 


Operationsverstärker, Grundlagen und 
Schaltbeispiele , C. Lorenz 


Dieses Buch umfaßt das gesamte Gebiet der linearen Schaltungstechnik und stellt ein in 
dieser Preislage bisher noch nie dagewesen Nachschlagwerk und Einführungshandbuch dar. 
Bestens geeignet für das Selbststudium. Nach einer pädagogisch geschickt gemachten Ein- 
führung folgen theoretische Arbeitsunterlagen und die zugehörigen Schaltbeispiele mit 
Daten und Gehäuseanschlüssen. Dieses wertvolle Buch dürfte seinen Platz auch bei Ihren 
Arbeitsunterlagen finden, und wird dann immer von Nutzen sein, wenn es um die Lösung 
von nicht routinemäßigen Aufgaben geht. DM 19,80 


Digitaltechnik Grundkurs (TTL -€ MOS - 
MOS und Software) ,C.Lorenz 


Ein Einführungskurs in die Digitaltechnik für Anfänger und Fortgeschrittene. Ein Fach- 
buch für den programmierten Selbstunterricht. Der ideale Kurzlehrgang für das Selbst- 
studium. Der Kurs vermittelt Ihnen alle wichtigen Grundkenntnisse vom TTL-Gatter bis 
zum Mikroprozessor und Lösung von Schaltungsaufgaben durch Software. Viele Ver- 
suchsaufbauten und Experimente aus diesem Kurs können auf der IC-KIT Platine WH-1g 
durchgeführt werden. Grundlagen, Gatter, Zähler, programmierbare Zähler, IC-Tester, 
Srhieberegister, Speicher, Mikroprozessoren u. v. a. Über 130 Seiten. DM 19,80 


Experimentierplatine WH-1g dazu, Best.Nr. 41 DM 79, - 


Experimentierplatine WH - | g 
Abmessungen: 210 mm x 150 mm 


Experimentierplatine WH - I g 
fertig aufgebaut und mit Sockeln 
bestückt. 


Im BER nn 


Mikroprozessoren, Eigenschaften und Aufbau 
Teil 1 , H. Bemstein 


Grundlagen, Eigenschaften und Aufbau von Mikroprozessoren. Organisation von Rechen- 
einheiten und Mikroprogrammen. Programmierung und Klassifizierung von Mikroprozesso- 
ren. Ablaufdiagramm, Flußdiagramm. Ein Chip-Technik und Multi Chip-Technik, Transfer- 
und Sprungfunktionen. Speichertechnik: RAMs, ROMs, FIFO, FILO. Programmierbare 
logische Arrays (PLA) 

Anwendungsbeispiele und Anwendungsbereiche. Über 120 Seiten. DM 19,80 


Elektronik Grundkurs (Kurzlehrgang Elek- 
tronik) , C. Lorenz 


Eine leichtverständliche und pädagogisch geschickt gemachte Einführung in die Technik 
der elektronischen Schaltungen. Ein Kurzlehrgang und Schnellkurs zugleich. Aber auch 
ein recht brauchbares Nachschlagewerk für den fortgeschrittenen Elektroniker. Mit wenig 
Mühe können Sie sich hier die Grundkenntnisse der elektronischen Schaltungspraxis an- 
eignen. Das Buch schafft die Voraussetzungen für ein erfolgreiches und sicheres Arbeiten 
mit interessanten Schaltkreisen modernster Technologien. Unentbehrlich für das Experi- 
mentieren mit den heutigen modernen hochintegrierten Schaltkreisen. Über 150 Seiten. 


DM 9,80 


Mikrocomputer Technik, 
Hans Peter Blomeyer-Bartenstein 


(völlig neu überarbeitete Auflage, Herbst 1979) 

In diesem Buche finden Sie eine umfassende, einführende und weiterführende Hilfe 

zum Einstieg in die Mikrocomputertechnik mit vielen Schalt- und Programmierbeispielen. 
Als praktische Betrachtungsgrundlage dient das supermoderne Microcomputerkonzept 
Z80A von ZILOG. Das Buch geht auf alle wichtigen Zusammenhänge ein und erklärt 
diese dem Leser so ausführlich, daß kaum noch Fragen offen bleiben. Über 240 

Seiten DM 29,80 


Hobby Computer Handbuch, C. Lorenz 
Eine leicht verständliche Einführung In die Microcomputertechn 


Diese sehr umfangreiche Einführung in die Microcomputertechnik dürfte zu diesem 
Preise einmalig sein. Auf über 450 Seiten finden Sie: Grundlagen der Computer- und 
Microcomputer-Technik, Was ist ein Microcomputer?, Microcomputer KITs, Einplatinen- 
computer, KIM, MIKIT, Z80 KIT, 6800 KIT, NEC 8080 KIT u. v. a. Genaue Beschrei- 
bungen der wichtigsten Mikroprozessortypen. Zusammenstellung und Beschreibung der 
modernen Personal Computer. (IMSAI, CROMEMCO, CAT, OSI, POLY 88 u. v. a.) 
Kompaktcomputer wie PET und TR-8. Interfactechniken, Ein/Ausgabegeräte, ROMs, 
RAMs, Programmiergeräte für PROMs. Löschgeräte für EPROMs u. v. a. mehr. Das 

ideale allumfassende Buch für den Microcomputertechniker. Für Industrieanwendung 
ebenso geeignet, wie für den Hobby-Computer Fan. Über 450 Seiten DM 29,80 


Mikroprozessor Teil 2, H. Bernstein 


Die Fortsetzung unseres ersten so erfolgreichen Buches über Mikroprozessoren. Techno- 
logie von Mikroprozessor- und Speicherbausteinen. Festwertspeicher, PROM, REPROM, 
FIFO, Schieberegister, MPR-Register, ARL-Register, SAR-Register. Aufbau eines Mikro- 
prozessorsystems mit 8080, RAM- und ROM Schnittstellen. Befehlssatz 8080. Über 

120 Seiten. DM 19,80 
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Mikroprozessor Software Handbuch MSH, 
C. Lorenz 


Grundlagen und Einführung in die Mikroprogrammierung. Grundlagen und Einführung in 
die wichtigsten Programmiersprachen (BASIC, FORTRAN, ASSEMBLER-Sprachen) Zu- 
sammenstellung der wichtigsten Befehlslisten: 8080, Z80, M 6800, National, Fairchild, 
etc. 

Ein Software Handbuch für jeden der mit Mikroprozessoren oder Mikrocomputern zu tun 
hat. Über 200 Seiten. Preis DM 29,80 


Lexikon und Wörterbuch für Elektronik und 
Mikroprozessortechnik, LEM, C. Lorenz 


Ein Hilfs- und Arbeitsbuch für jeden der sich heute mit der modernsten Elektronik be- 
schäftigt. Viele engl. Ausdrücke werden heute in der Elektronik, Computer- und Mikro- 
prozessortechnik verwendet und oft fehlt uns eine genaueste und präzise Erklärung. 
Dieses Buch übersetzt Ihnen den englischen Fachausdruck und gibt Ihnen zusätzlich noch 
eine deutsche Erläuterung und Erklärung dieses Begriffes und was es damit auf sich hat. 
Ein Lexikon und Wörterbuch in einem einzigen Buch vereinigt. Das Buch, das Sie schon 
lange gesucht haben. Ca. 250 Seiten. Preis DM 29,80 


Mikrocomputer Datenbuch, C. Lorenz 
Zusammenstellung der wichtigsten Mikroprozessordaten. 


Eine übersichtliche und sehr informative Zusammenstellung der wichtigsten Mikro- 
prozessorbausteine auf dem Markt. 8080A, 8085, 8048, Z80, Z8, 6500, 6800, 2650, 
1802, F8, 3870, SC/MP, PACE u. v. a. Daten, Anschlußbilder, wichtige technische 
und elektrische Daten, Architektur, grundlegende Eigenschaften. Zu jedem Mikro- 
prozessor werden dann auch noch die peripheren Bausteine sowie RAM und ROM 
Elemente behandelt. Das ideale Handbuch für jeden modernen Elektroniker. Sira6 


Aktivtraining - Mikrocomputer 


Der ideale Einführungskurs in die Mikrocomputertechnik anhand des Mikroprozessors 
8080 (8085). Viele interessante Anwendungsbeispiele. Ideal zum Selbststudium geeig- 
net. Auch die wichtigsten peripheren Einheiten werden besprochen und aufgezeichnet. 
Erscheint Ende 1979/ Anfang 1980 als gebundenes Buch und nicht wie vorher ange- 
kündigt als Sammelordner. Umfang ungefähr 400 — 500 Seiten. DM 49,— 


57 Programme in BASIC, C. Lorenz 


Ein Buch mit technisch-wissenschaftlichen Programmen und einer großen Anzahl 
von Spielprogrammen in BASIC. (Games) Ein Buch für jeden, der sich mit dem fas- 
zinierenden Hobby der Mikrocomputertechnik befassen will. Alle Listings sind in 
BASIC und können auf den meisten Personal Computer Systemen gefahren werden. 


DM 39,-- 
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ATARI BASIC Handbuch 


Das komplette Einführungs- und Programmierhandbuch für die neuen ATARI-Computer 
ATAR!I 400 und ATARI 800. Anhand von vielen Beispielen wird die Leistungsfähigkeit 
des ATARI Computer-Systems gezeigt. Auch für den Anfänger ideal als Einstieg gedacht. 
Die ATARI-Computer sind mit Shepardon’s BASIC ausgerüstet. Erscheint voraussichtlich 
Erscheint Ende 1980 DM 29,80 


Mikrocomputer Programmierbeispiele für 265 
Dr. J. Hatzenbichler 


Eine Einführung in die Programmierung von Mikrocomputern an Hand des Prozessors 
2650 von Signetics. Viele Programmierbeispiele in Maschinensprache, die Sie auf einem 
preiswerten Mikroprozessorsystem MIKIT 2650-P2 ausführen können. Zeitschleifen- 
programme, Blinkschaltung, Lauflicht, Stufenzähler, Elektronischer Würfel, Stoppuhr, 
Reaktionszeittester, Computer Musik Programm u. v. a. Jeder Befehl wird genau erläutert 
und an Hand eines ausführlichen Flußdiagrammes erklärt. Jedes Programm liegt in Form 
eines Computer-Listings vor. Jedes Programm ist genauestens beschrieben. Sie können so 
auf einfache Weise die Zusammenhänge erkennen und erwerben damit die Grundkennt- 
nisse zur Erstellung Ihrer eigenen Programme. Sie erkennen, wie man mit nur einer 
Schaltung (Mikrocomputer) unendlich viele praktische Anwendungsschaltungen reali- 
sieren kann. Zu diesem Buche ist. auch ein komplett aufgebautes und getestetes Mikro- 
computersystem erhältlich, auf dem Sie alle beschriebenen Programme selbst ausführen 
können. Über 120 Seiten DM 19,80 


TINY BASIC Handbuch 


Eine Programmiersprache ist um so leistungsfähiger, je einfacher eine gewünschte Funk- 
tion dargestellt werden kann. TINY BASIC ist eine abgemagerte BASIC-Version, die mit 
ca. 2 K RAM auskommt. Dieses Buch zeigt Ihnen, wie Sie eine solche preiswerte BASIC- 
Version auf Ihrem KIM-1 oder einem anderen 6502-System implementieren können. 
Komplette Hard- und Softwarebeschreibungen, Programmiertricks, Programmierbeispiele 
und vieles andere mehr. | DM 19,80 


Der freundliche Computer 


Ein Microcomputerbuch für jedermann. Dieses Buch sollte jeder lesen, der auch in Zu- 
kunft noch mitreden möchte. Was macht man mit einem Microcomputer? Die verschie- 
denen Computersprachen? Welche Computersprache ist die beste? Wie lerne ich eine 
Computersprache? Zusammenfassung verschiedener Computersprachen wie BASIC, 
MUMPS, PL/M, FOCAL, FORTRAN, ASSEMBLER. Vergleich dieser Computersprachen 
untereinander und Gegenüberstellung. Einkaufsführer für Microcomputer und Peripherie. 
Besprechung der einzelnen Teile des Microcomputers, ausführliches Stichwortverzeichnis 
der Fachausdrücke und v.a.m. Erscheint Mitte 1981 DM 29,80 


Microcomputer und Roboter 


Ein Buch für denjenigen, der sich externe Schaltungen für Microcomputer bauen möchte, 
die roboterartige Funktionen ausführen können. Spracherkennung, Analog-/Digital-Wand- 
ler, Digital-/Analog-Wandler, Ultraschallsensoren, Lichtschranken, Tonerzeugung u. v. a. 
Erscheint Ende 1981 DM 29,80 
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1000 Elektronik Schaltungen 


Ein ideales Handbuch für jeden, der öfter eine Schaltung zur Lösung eines bestimmten 
Problems sucht. Tausend Schaltungen aus fast allen Bereichen der Elektronik. Industrielle 
Steuerschaltungen, Microcomputer, Peripherie, Hobby-Elektronik-Schaltungen u. v. a. 
mehr. Ein Buch, daß bei keinem Elektroniker fehlen sollte.Erscheint Mitte 1981DM 49 -- 


Oszillographen Handbuch 


Ein Buch für jeden, der seinen Oszillographen optimal nutzen will. Der Anfänger, der 
noch nie einen Oszillographen benutzt hat, wird auf einfache Weise mit der Technik 
und Handhabung vertraut gemacht. Auch die Anwendung in Zusammenhang mit den 
modernen Mikrocomputersystemen wird beschrieben. Oszillograph als alphanumerisches 
Darstellungsgerät u. v. mehr. Erscheint ca. Mitte 1981 DM 19,80 


TTL-Experimentierbuch 
Eine kleine Einführung in die Digitaltechnik 


Grundlagen der Digitaltechnik kurz erklärt. Bauanleitung für einen praktischen Logik- 
Tester. Viele Experimente und Anwendungsschaltungen mit dem TTL Gatterbaustein 
7400. Das ideale Einführungsbuch in die Digitaltechnik. DM5,— 


CMOS - Experimentierbuch 
Eine kleine Einführung in die CMOS Schaltungstechnik 


CMOS Grundlagen, Behandlungshinweise für CMOS Bausteine, Zusammenstellung der 
wichtigsten CMOS Bausteine und deren Anschlußbilder. Viele praktische CMOS Schalt- 
beispiele. Ideal für jeden Elektroniker. DM 5,—- 


Praktische Antennentechnik, C. Lorenz 


Ein Buch für jeden Funkamateur oder Hobbyfunker. Grundlagen, Einführung, praktische 
Beispiele, Berechnungsgrundlagen u. v. a. mehr. Erscheint Ende 1981 DM 19 80 


Handbuch für SC/MP -- Das Handbuch für INS8060 und INS8070,C. Lorenz 


Eine Anleitung zum Aufbau eines eigenen Microcomputersystems. Komplett mit allen 
Unterlagen (Schaltbilder, Printvorlagen, Anleitungen). Systemdaten: 4/8K RAM, resi- 
dentes BASIC, residenter Assembler/Editor/Debugger, TV-Interface, Floppy Disk Inter- 
face, Cassetten-Interface. DM 29 80 


6502 Microcomputer Programmierung, P. Heuer, 


Ein deutsches Anleitungsbuch zum Einstieg in die Microcomputertechnik. Als System 
kann ein KIM-1 zur Ausführung der Programmierbeispiele verwendet werden. Die Maschi- 
nenprogramme lassen sich jedoch auch auf jedes 6502 System umschreiben. Daher ist 
dieses Buch auch für alle anderen 6502-System-Besitzer interessant. (AIM, SYM, CBM, 
Challenger, APPLE, ATARI, PET und PC100 sowie PC1000. DM 29 80 
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Programmierhandbuch für PET,C. Lorenz 


Ein Handbuch für jeden PET-Besitzer und solche die es werden wollen. Grundlagen, Ein- 
führung und viele Programmierbeispiele. Einführung in die Maschinensprache, Ein-/Aus- 
gabeprogrammierung, Spracheingabe für PET, Graphik mit dem PET, Computermusik, 
Programmierung des IEC-Ports, viele Programmbeschreibungen, Datenblätter, Programm- 
beschreibungen von interessanten Geschäftsprogrammen. 325 Seiten DM 29,80 


Programmieren mit TRS-80, M. Stübs 


Ausführliche Beschreibung des TRS-80 Computers von Radio Shack. Betriebssystem, 
Level Il BASIC, Graphik, Mathematik und Logik, Programmiertricks, TRS-80 Floppy, 
Verbindung zur Außenwelt, RAM-Erweiterung u. v. a. mehr. Viele Programmierbeispiele 
mit ausführlicher Beschreibung runden das Buch ab und machen es zu einer wichtigen In- 
formationsquelle für jeden, der vor der Anschaffung eines TRS-80 steht. Dem TRS-80- 
Besitzer wird es stets ein wertvoller Begleiter sein. DM 29,80 


PASCAL Programmierhandbuch, C. Lorenz 


Eine leicht verständliche Einführung in die PASCAL-Programmiersprache mit vielen Bei- 
spielen. Auch auf eine TINY-PASCAL-Version wird eingegangen. Viele Programmierbei- 
spiele. DM 29 80 


BASIC Programmierhandbuch, C. Lorenz 


Einführung und Nachschlagewerk. Speziell für die BASIC-Versionen der modernen Mi- 
crocomputersysteme. Jeder Befehl wird ausführlich beschrieben und ein Beispielpro- 
gramm gezeigt. Sehr übersichtlich und praktisch. Am Schluß finden Sie ein komplettes 
BASIC-Programm, das Ihnen über einen Computer BASIC lehrt. Mit Begleittext. 


DM 19,80 
Der Microcomputer im Kleinbetrieb, L. Oswald 
Wie setzt man die modernen, preiswerten Microcomputer im Kleinbetrieb ein? Dieses 
Buch gibt Ihnen Aufschluß, wie Sie mit Microcomputersystemen in der Preisklasse zwi- 
schen DM 2.000,-- und DM 20.000,-- wichtige Aufgabe in Ihrem Klein- oder Mittelbe- 


trieb bewältigen Fönnen. Inventuraufnahme, Inventurbewertung, Adresslisten, Rech- 
nungen schreiven u. v.mehr. Erscheint Anfang 1981 DM 39,80 


FOCAL Programmierhandbuch, L. Oswald 


FOCAL ist eine Programmiersprache die von Digital Equipment entwickelt wurde. Sie 


‚ähnelt etwas der BASIC-Sprache, ist jedoch wesentlich leistungsfähiger. Hauptsächlich 


mathematische Probleme lassen sich mit ihr wesentlich einfacher lösen. Wie man diese 
Sprache auf einem 6502 Computersystem (KIM-1) mit Speichererweiterung implemen- 
tiert, soll dieses Buch zeigen. Erscheint Mitte 1981 DM 19,80 


Einführung 16-Bit Microcomputer, C. Lorenz 


Eine kleine Einführung in die 16-Bit-Microcomputersysteme von Motorola, Zilog, Texas 
Instruments, Intel und Rockwell. Erscheint Mitte/Ende 1980 DM 19,80 


FORTRAN für Heimcomputer, C. Lorenz 
Einführung in die FORTRAN-Programmiersprache mit vielen Beispielen. Grundsätz- 


liches über die verschiedenen Microcomputersysteme, die bereits mit FORTRAN-Compiler 
lieferbar sind. Allgemeine Übersicht, Tips und Hinweise. Mitte/Ende 1980 DM 19 80 
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Programmieren in Maschinensprache mit dem 6502, C. Lorenz und R. Lullus 


Eine sehr ausführliche Beschreibung der 6502 Mnemonics mit kleinen Beispielen. Kom- 
plettes Assembler-Listing für CBM 8K alte ROMs und CBM 16, 32K neue ROM. Text- 
Editor, Disassembler und Binder. BASIC-Listings mit genauer Beschreibung. DM 98,-- 


Programmieren in Maschinensprache (Z80), C. Lorenz 


Eine sehr ausführliche Einführung in die Z80 Maschinensprache. Die Beispiele können 
mit Hilfe des TRS-80 Level Il sowie dem T-BUG von TANDY und den T-BUG-Erwei- 
terungen (IN LOCO, T-STEP, T-LEGS) ausgeführt werden. Ein unentbehrliches Buch 
für jeden, dem die BASIC-Programmiersprache von der Geschwindigkeit her zur Lösung 
seiner Aufgaben nicht mehr ausreicht. DM 49 .-- 


Anwenderprogramme für TRS-80, M. Stübs 


Ein Buch, voll mit interessanten Anwenderprogrammen für TRS-80 Level Il 16K (teil- 
weise Diskette und/oder Cassette). Hauptsächlich Programme für den Manager, Geschäfts- 
mann, Klein- und Mittelbetrieb. Auch einige interessante Spiele sind enthalten. Termin- 
kalender, Reservierungsprogramm für Omnibusunternehmen und Hotels usw. 


DM 29,80 


Microsoft BASIC-Handbuch, Microsoft 


Die deutsche Übersetzung des erfolgreichen Microsoft BASIC-Handbooks. Leicht ver- 
ständliche Einführung mit vielen interessanten Programmbeispielen. 


DM 29,80 


BASIC für Fortgeschrittene, C. Lorenz 


Ein Buch für denjenigen, der tiefer in die BASIC-Programmiersprache einsteigen möchte. 
Sehr viele nützliche Unterroutinen, Programmiertricks und Hinweise. 
DM 39 ,-- 


IEC Bus-Handbuch „ von Max P. Gottlob 


Ein Handbuch und Nachschlagwerk für alle Besitzer von Computern mit IEC (lEEE 
488 Bus). Dazu gehört auch der PET sowie alle CBM-Computer. Grundlagen, das 
BUS-System, Meßdatenübertragung, Adressierung eines Instrumentes, kleines IEC- 
BUS-Lexikon u. v.a. ISBN 3 921 682-73-8 nur 19,80 DM 


Programmieren in Maschinesprache mit CBM 


An Hand eines praktischen Beispiels (Sortierroutine) wird der Unterschied zwischen 
BASIC und Maschinenprogrammen gezeigt. Das Maschinenprogramm kann mit dem 
leistungsfähigen MONJANA/1 Monitor in ROM erstellt werden. Am Schluß finden 
Sie weitere wichtige Informationen wie Dez/Hex- Umrechnungstabelle, Befehls- 
listen, ASCII-Tabelle sowie eine ROM-Vergleichsliste zwischen 8k PET und den 
neuen CBM-Maschinen. 60 Selten. ISBN 3-921682-70-3. 19,80 DM 


ELCOMP, Fachzeitschrift für Microcomputertechnik 


ISSN-Nr. 0171-0958. Die kompetente Fachzeitschrift für das moderne Gebiet der 
Microcomputertechnik. Erscheint 10 x pro Jahr. Jahrespreis DM 59,— incl, MwSt. 
Porto und Verpackung. Wer die neuesten Informationen aus diesem Gebiet für 
sich nützen möchte, muß ELCOMP lesen. Technische Tips, Software, Bauan- 
leitungen. Programmiertricks, Systembeschreibungen, Jeden Monat brandneu. 
450 DM 


ELCOMP Doppelheft 


Von den zehn Heften pro Jahr erscheint im Juli/August und November/Dezember 
ein Doppelheft. 9,— DM 


Einführung in die Microcomputer Programmierung mit 6800 


Eine sehr gute Einführung in die Microcomputertechnik mit Hilfe des Mikropro- 
zessors 6800. Ausführliche Erklärungen mit vielen Beispielen und Anleitungen. 
Theoretische Grundlagen. CPU-Architektur, Befehlssatz, Systemaufbau. Hiilfs- 
mittel der Programmierung, Trainingsprogramme, Systemkomponenten, FIRM- 
WARE. Ein komplettes Monitorprogramm (Betriebssystem) ist als Listing ent- 
halten. Über 250 Seiten. ISBN-Nr. 3-921682-79-9 49,-— DM 


Programmieren mit dem CBM 


Ein Hand- und Programmierbuch für alle CBM-Besitzer der 3000 und 8000er Serie. 
Viele Tricks und Programmierbeispiele, Anleitungen, Erscheint Ende 1980. 
29,80 DM 


ELCOMP Leser Programmierhandbuch 


Hier fassen wir die besten Programme unserer ELCOMP-Leser zusammen. Pro- 
gramme für PET, CBM, TRS-80, AIM, SUPERBOARD, C4P, EXIDY, SHARP, 
MZB8OK, Apple Il, NASCOM | u. Il und TI 99/4 werden als Listing mit kurzer 
Beschreibung allen Lesern zugänglich gemacht. DIN A 4 ca. 300 Seiten, Erscheint 
Anfang 1981. 69,— DM 


Programmierbeispiele für CBM 


Ein Buch mit vielen BASIC-Programmen für CBM und PET. Spiele, Geschäfts- 
bereich, Erziehung und Wissenschaft, Utilities, trickreiche Programme, Hilfen 
für Maschinensprachenprogrammierung. Viele Programme für wenig Geld. Er- 


scheint Ende 1980 19,80 DM 
Cobol für Anfänger 
Eine Einführung in die Cobol-Programmierung für den Microcomputer-Besitzer, 
Erscheint Anfang 1981. 19,80 DM 
CP/M-Handbuch 


Grundlagen, Einführung, Hilfs- und Handbuch für jeden der mit dem '’Software- 
Bus’ arbeiten möchte, Ideal auch für Anfänger, Praktisches Handbuch für den 
Profi. Anfang 1980 29,80 DM 


Welches Betriebssystem brauche ich? 


Ein Leitfaden und Handbuch für den Anwender der gehobenen Microcomputer- 
klasse. Anfang 1981. 19,80 DM 


BENEBESESEIEN 


Care and Feeding of the Commodore Personal Electronic Transactor edited by Silver Spur 


Ein Buch für den PET-Besitzer und Hardware-Fan. Viele wichtige Kniffe und Tricks, die 
Sie benötigen, wenn Sie selbst ihren PET-Computer erweitern wollen. DM 19,80 


8K Microsoft BASIC Reference Manual 


Eine Einführung in die 8K Microsoft BASIC-Version mit vielen Beispielen. Dieses Buch 
braucht jeder, der einen Microcomputer mit Microsoft-BASIC besitzt. DM 19,80 


Expansion Handbook for 6502 and 6800, S. Roberts 


Viele interessante periphere Schaltungen für 6502 und 6800 Microcomputersysteme. Ein 
Buch das jeder benötigt, der sein System selbst erweitern möchte und noch mehr Vorteile 
daraus ziehen will. RAM-Platine, ROM-Platine, CPU-Platine, Ein-/Ausgabeplatine u. v. a. 

DM 19,80 


Microcomputer Application Notes, Intel 


Eine Zusammenfassung der interessantesten Applikationsberichte von Intel. Programmier- 
barer Interfacebaustein 8255, Anwendung des USART 8251, entwickeln mit statischen 
RAMs, Benutzung der seriellen Ein-/Ausgabeleitungen des 8085, Anwendung von 5V 
EPROMs, Anwendung des 2708 EPROMs u. v. DM 29 80 


Complex Sound Generation using the SN76477 


Dieses Buch zeigt Ihnen, wie man mit dem SN76477 die interessantesten und schönsten 
Töne erzeugen kann. Vogelgezwitscher, Dampfeisenbahn, Autorennen, Raketenabschuß, 
Granateneinschlag u. v. a. mehr. Viele Schaltungen mit genauen Beschreibungen. Kurz- 


daten. DM 19,80 


The First Book of 80-US(TRS-80) 


In diesem Buch haben wir noch einmal einige wichtige und interessante Programme 
sowie Artikel aus der amerikanischen Spezialfachzeitschrift für TRS-80 (80-US, The 
TRS-80 Users Journal) zusammengestellt und als Buch herausgegeben. Dieses Buch 
sollte nur kaufen, werdie Einzelhefte dieser Zeitschrift von Vol. I Nr. 1 bis Vol. II Nr. 5 
noch nicht besitzt. Das Buch enthält sehr wertvolle, nützliche Informationen und phan- 
tastische Software: Kleinbuchstaben für TRS-80, Biorythmus für TRS-80, Bowlingspiel, 
Adressliste, Bildzeichnungsroutine, komplettes Geschäftsprogramm für Friseurläden, 
Telefon und Namensverzeichnis. Texteditor, Persönlichkeitsprofil u. v. a. DM 19,80 


Small Business Programs, S. Roberts 


Ein Buch für denjenigen, der die modernen Microcomputer (speziell TRS-80, APPLE, 
PET, North Star, Challenger) zur Rationalisierung in seinem Klein- oder Mittelbetrieb 
einsetzen möchte. Viele nützliche Tips, Hinweise und Programmierbeispiele. Dieses Buch 
sollte jeder Geschäftsmann und Microcomputerfreund besitzen. DM 29,80 


The first Book of Ohio Scientific Vol. I 


Das erste weltweit produzierte Buch für die erfolgreiche Ohio Scientific Challenger 
Computerserie, Grundlagen, viele Programmiertricks, Hardwaretips, Umbauan- 
leitungen, Programmierbeispiele u. v.a. 186 Seiten. Glanzumschlag 19,80 DM 


The second Book of Ohio Scientific 


Eingehende Beschreibungen über praktische und geschäftsorientierte Software. 
Speicher Test Programm, Tricks und Tips für Disketten-Anwender. Mini-Floppy- 
Expansion u. v. a. 159 Seiten. 19,80 DM 


The third Book of Ohio Scientific 


Fortsetzung der oben beschriebenen Reihe. In diesem Buch findet der Hardware- 
Spezialist das was er schon länger gesucht hat. Wichtige Informationen für die 
Systemerweiterung, Schaltpläne u. v. a. 180 Seiten. Herbst 1980 19,80 DM 


The fourth Book of Ohio Scientific 


Ein Buch voll mit Programme für das Superboard, C4P, CAPMF und C28P, Die 
Softwarequelle für jeden Challenger Fan. Alle Programme sind getestet und auch 
auf Cassette verfügbar. 170 Seiten Listings u. Beschreibungen. Herbst 19 80. 


Buch 29,80 DM 
Cassette (extra) 29,80 DM 


The fifth Book of Ohio Scientific 
Frühjahr 1981. 19,80 DM 


ATARI GAMES IN BASIC 


Ein Büchlein mit vielen Programmen für den ATARI-Computer (400 + 800). 64 
Seiten. Ende 1980 19,80 DM 


The peripheral Handbook 


Ein Handbuch über Drucker, Floppys, Hard-Disks, und alles was Sie um den Micro- 
Computer herum benötigen. Tricks und Kniffe. Technische Beschreibung. Anfang 


1981. 29,80 DM 


ELCOMP -INHALTSVERZEICHNISSE 


Inhaltsverzeichnis der zurückliegenden 
ELCOMP - Hefte 


Nr. 1 


Symbole 

Microcomputer Grundkurs 

North-Star Horizon Computer 

Software für Z 80 Systeme 

Selbstbaucomputer mit Z 80 Bauan- 
leitung für ein eigenes Microcomputer- 
System, Teil 1 

8085 Microcomputer-KIT 

Microcomputer-Anwendung im Kleinbe- 
trieb 

S-100 Bus Adapter für PET 2001 

Exidy - Ein neues Microcomputer- 
System mit Z-80 

Hauskauf mit BASIC 

Heimcomputer-Vergleichsliste 

BASIC-Programm FACTORS 

Der S-100 Bus (Beschreibung) 

Viele Programme für den PET 

Software für 8080/Z-80/6800 Systeme 

AIM-Computer von Rockwell 

Erweitern Sie Ihren KIM-1 

Der VIM-1 ist da 


September 1978 350 DM 


Nr. 2 Oktober 1978 

Microcomputer Grundkurs 

Wie lernt man BASIC 

TINY BASIC, klein aber oho 

Selbstbaucomputer Z 80, S-100 RAM- 
Karte 

Supermonitor für den PET 

Die Silicon Valley Story 

Programmierung von Bewegungsabläufen 

TRS-80 Microcomputer des Monats 

Ein IK-Monitor für Z-80 (Betriebssystem) 

Musik für den PET 

Microcomputer Lexikon 

Ein Monitor für 6502 

Breackpoint-Routine 

Joystick Programmierung 

Microchess 

Ein leistungsfähiger Monitor für den PET 

BASIC Plus 

Messeberichte 

Personal Computing 


350 DM 


Nr. 3/4 Nov./Dez. 1978 

Graphik mit dem PET 

Wie lernt man BASIC, Teil Il 

Preiswertes Datenerfassungssystem mit 
Scampi 

IPS - Die Programmiersprache der Nach- 
richtensatelliten f. Funkamateure 

Apple Il - Microcomputer d. Monats 

PSI - Ein komfortables Programmsystem 

Ein linearer Joystick für PET 

NASCOM 1 

KIM-1 wird noch leistungsfähiger 


8,00 DM 


Fädeltechnik für Elektroniker 

Neues SC/MP Microcomputersystem 

Microcomputer-Lexikon 

Silicon-Valley-Story, Teil Il 

Biorythmus 

Z-80 Selbstbaucomputer Ein-/Ausgabe- 
platine 

Drucker für SC/MP 

S-100 Bus Mutterplatine 

Messebericht WESCON 

Industrie und Personal Computer EXPO 

Nr. 1 Januar 1979 350 DM 

Bubbile-Speicher von Rockwell 

Programmiertricks für PET 

Cumputerspiele 

Programmierexperimente für PET 

Wie lernt man BASIC, Teil Ill 

ASCII - Selbstbautastatur 

PASCAL 

Biorythmus für PET 

Microstar - Microcomputer d. Monats 

Z-80 Selbstbaucomputer - Bauanleitung 
für ein eigenes Microcomputersystem, 
Teil 4- EPROM-Karte 

APL für Z-80 

TINY-BASIC f. NASCOM-1 

Floppy Disk für Apple II 

PROTEUS III 

4k C MOS RAM 


Nr. 2 Februar 1979 

Computer-Musik 

Wie lernt man BASIC, Teil IV 

Kraftstoffverbrauch und Computer 

Löschen des Speichers beim 8080/8085 

Dual-Joystick für den PET 

Was der Elektronik-Fachhändler 
Microcomputer wissen muß 

Spielen Sie Lotto ? 

Einfache Programmorganisation für PET 

Ein-/Ausgabeprogrammierung mit PET 

16-Bit-Microprocessoren 

Schaltreglier für Microcomputer 

Einfaches Statistikprogramm für PET 


Bereits vergriffen | 


450 DM 


über 


Nr. 3 März 1979 
Challenger IP und Superboard II 
ATARI-Computer 


450 DM 


Suchlauf 

SC/MP-Programm BINBCD 
Sprungentfernung bei relativer Adres- 
sierung 


Laufzeitreduzierung b. BASIC-Interpreter 
Heimcomputer und Bildungswesen 
Lernen für die Anwendung von Micro- 
prozessoren 

Umwandlung von BCD-Code in 7-Seg- 
ment-Code 

Microcomputer des Monats: MSI 6800 
von Midwest Scientific Instruments 


Wie lernt man BASIC, Teil V 
S-100 Adapter für TRS-80 
Computer-Musik 


Nr. 4 April 1979 450 DM 
KIM-Software - Es leber der KIM-1 
Disassembler und Editor für KIM-1 


CAl Computer Assisted Instruction 

Optimieren Sie Ihre Programmiertech- 
nik 

Jetzt kommen die Roboter 

Zeilenveränderungsprogramm f. PET 

Was ist eine Computersprache 

Messebericht Consumer Show in Las Vegas 

Dreidimensionale Graphik mit dem PET 

Wie lernt man BASIC, Teil VI 


Nr.5 Mai 1979 450 DM 

Adressenverwaltungssystem KARTEI 

JANA - ein neuer Monitor für den PET 

Experimente für Anfänger mit KIM-1 

TANDY TRS-80 Level II 

4k RAM-Erweiterung für KIM-1, SYM-1 
oder AIM 

Z-80 System auf Europakarten 

Microcomputer für den Geschäftsbereich 

Zufallsgraphik 

Wie lernt man BASIC, Teil VII 


Nr. 6 Juni 1979 

ELCOMP-Leserumfrage 

Z-80-KIT Tips 

Wie lernt man BASIC, Teil VIII 

Minidiskette für TRS-80 

Preiswerter Drucker für den Microcom- 
puteranwender 

Computer-System 79 

Schrittmotoransteuerung mit SYM-1 

Wie baue und programmiere ich einen 
Joystick? 

Assembler für SC/MP 

Starten mit SYM-1 

Displayanzeige mit dem SYM-1 


4,50 


Nr.7/8 Juli/August 1979 

Die neue TRS-80 Überraschung 

6502 hat Zukunft 

Grenzüberwachung 

NASCOM-1 mit TINY BASIC 

BASIC-Vergleichstabelle 

Der SORCERER Computer 

Interview mit dem geistigen Vater der 
TRS-80 Familie 

Der neue Heathkit-Computer 

Microchatter 

Wie lernt man BASIC, Teil IX 

Die Hardwarestruktur des ELZET 80 

Was ist ein Wortverarbeitungssystem? 

Computersystem CONDOR 

Computerspiele in BASIC 

PILOT 


9,00 DM 


Ein einfaches PROM-Programmiergerät 
Ein-/Ausgabeprogrammierung mit PET 
Erweiterung für NASCOM-1 

Lernen für die Anwendung von Micro- 
processoren 


Nr.9 September 450 DM 

Tips für den BASIC-Programmierer 

Wie lernt man BASIC, Teil X 

EUROCOM-1 

Michrochatter 

Die neuen ROMs im CBM 

Neue Publikationen 

Speichererweiterung für den PET 

Musikprogramm für den NASCOM-1 

Computersystem 79 

Umschalten des Bildschirms auf Breit- 
schrift beim TRS-80 Level I! 

Vergleich dreier Zahlen 

ELCOM-Leserbriefe 

Diskettenpower APPLE Il 

Neuer Einplatinencomputer von Motorola 

Einstellung der Tonspur beim PET 


Nr. 10 Oktober 1979 450 DM 

Ein-/Ausgabeprogrammierung mit dem 
TRS-80 

Texas Instruments stellt seinen Heim- 
computer vor 

Microchatter 

Wie lernt man BASIC, Teil XI 

Der MZ-80 von Sharp 

Microcomputer als Hobby 

Ein komplettes Textverarbeitungssystem 
mit CBM-Computer u. Heathkit-Drucker 

Wer ist OHIO SCIENTIFIC ? 

KURDIS - Ein Programm zur Kurven- 
diskussion 

BASIC im Unterricht 

Monolithischer 8 Bit Analog/Digital- 


Wandler 
Band-Test 
Nr. 11/12  Nov./Dez. 1979 9,00 DM 
Jetzt kommt PASCAL 


Aus der PET-Modulkiste 

HISTORGRAMM 

32k RAM Zusatzspeicher f. PET 2001 

Exidy Sorcerer 

Kleinschrift und Verbesserung des Video- 
RAMSs beim TRS-80 

Filmkamerasteuerung mit PET 

Anschluß eines Floppy-Disk-Controllers 
an 6500 Microprozessoren 

Anschluß eines Baudot-Fernschreibers an 
einen Microcomputer 

Ein Besuch bei ATARI 

Kalender 

Ein wenig Trigonometrie 

Berechnen der Kreiszahl 

Der NASCOM2 ist da 

PET als IC-Tester 

Das NIM-Spiel und was es damit auf sich 
hat 

Linking Loader für PET 2001 (8k) 

MEMDMP-Hex Dump- Programm für 
6502 Systeme 


KIM-1 schreibt auf Skop 
IRRGARTEN 

KIM-Orgel 

Lichtgriffel 

Meldeton für PET 

Preiswerter Drucker f. NASCOM-1 
Wie lernt man BASIC, Teil XI! 


Bereits vergriffen ! 


Nr. 1 Januar 1980 450 DM 
Microcomputer-Software und Vernunft 


TRS-80 als “elektronisches Kurvenlineal”’ 
Schrottknüppel 
Programmbeschr.: FLAG OPERATION 


Aus der PET-Modul-Kiste 

Alternatives TINY-BASIC für den TRS-80 
unter Level 1 

Programmtricks APPLE I 

NEUII! Einführungskurs: Programmieren 
in Maschinensprache auf Z-80 

Programmiertrick für TRS-80 

Eine professionelle Analogschnittstelle 

GRAPHSYS 

Wie lernt man BASIC, Teil XIII 

Programmierhilfen f. NASCOM-1 

SUMA 85 (Selbstbausystem) 

Automatische Zeilennummerierung für 
PET 

ULTRA-MON-CBM Bedienungsanleitung 

Entwicklungsboard f. AmZ8000 

ELTRO-HOBBY 79, der große Renner 


Nr. 2 Februar 1980 4,50 DM 

“Echte‘ Großschrift beim TRS-80 

BASIC-Programme - kürzer und schneller 

Datenlogger BASIC - Programmierbar 

EPROM-Programmiergerät für PET 

HIGH-Resolution-Graphic auf dem 
APPLE II 

Wie lernt man BASIC, Teil XIV 

Der TI-Programmer 

SUMA 85 

Programmieren in Maschinsprache mit 
2-80 

PET-Petits 


Nr. 3 März 1980 450 DM 

Der Personalcomputer von HP ist da 

Lernen mit dem AIM, Teil 1 

Die neuen CBM-Modelle 

SUMA 85, Teil 3 

Programmieren in Maschinensprache mit 
2-80, Teil 3 

Maschinencodemonitor in TINY-BASIC 

PET-Petits 

Was ist Datenschutz? 

Monitorprogramm für SC/MP 

Wie lernt man BASIC, Teil XV 

Quadratische Gleichungen 

Wer ist Jim Butterfield? 


Messebericht: Comsumer Electronics 
Show 

Der PC-100 

Nr.4 April 1980 450 DM 


Grundlagen der Finanzbuchhaltung für 
den Microcomputeranwender 


SUMA 85, Teil 4 

Messebericht: Hobbytronic Dortmund 

Berechnung ganzrationaler Funktionen 

Aus der PET-Modulkiste 

SDS-100 MicroMini 

Erstes Home-Computer-System von TI 

Programmieren in Maschinensprache mit 
Z-80, Teil 4 

PRINT USING für X80 und PET 

Microchatter 

Wie lernt man BASIC, Teil XVI 

PET Petits 

Grafik mit dem Superboard 

Untersuchen von Texten auf die Häufig- 
keit des Auftretens einzelner Buch- 
staben 

Zum lernen ideal..... 

Hochinteressante Interviews 


Nr.5 Mai 1980 

Aus der PET-Modul-Kiste 

Z80-Disassembler für den NASCOM 

Implementierung einer REAL-TIME- 
CLOCK 

SUMA 85, Teil 5 

Programmieren in Maschinensprache mit 
2-80, Teil 5 

Lernen mit AIM, Teil Il 

AIM 65 hilft im Büro 

Protokollieren von TRS-80 Bildschirm- 
ausgaben 

Wie lernt man BASIC, Teil XVil 

West Coast Computer Faire 

Der HY Q-1000 

Der BASE? Drucker 


450 DM 


Nr. 6 Juni 1980 450 DM 

Die einfache Verkettungstechnik 

Programmieren in Maschinensprache mit 
Z-80, Teil 6 

Lernen mit dem AIM, Teil 3 

Microcomputer Fools Corner 

Challenger C4PMF Microcomputer 

SUMA 85, Teil 6 

Wie lernt man BASIC, Teil XVill 

TINY-FORTH für TRS-80 Level Il, 16k 

CBM-Disk BASIC Version 4.0 

Heathkit - Matrixdrucker / Erfahrungs. 
bericht 

Monostabile Kippstufen 

5. West Coast Computer Faire 

Hex-DUMP in BASIC für Superboard 

Michrochatter 


ELCOMP ist in der Micro- 
computer-Berichterstattung 
immer vorne. 

Keiner, der mitreden will, 
kann es sich noch leisten, 
ELCOMP nicht zu _ lesen! 
Bestellen Sie deshalb heu- 
te alle noch verfügbaren Hefte 
und sichern Sie sich ELCOMP 
im Abonnement für die Zu- 
kunft. 


Hiermit gebe ich folgende Bestellung unter Anerkennung 
Ihrer Lieferungs- und Zahlungsbedingungen auf. 


Unterschrift (für Jugendliche unter 18 J. der Erziehungsberechtigte) Datum 
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BESTELLKARTE für ein ELCOMP-Abonnement 


Auslands-Abonnement (Europa) + DM 10 .-- Versandkosten 

Bitte senden Sie mir ab sofort alle künftigen Ausgaben der ELCOMP. Preis DM 59, -- 
pro Jahr incl. Versand und Verpackung. Lieferung ab Ausgabe................ nee 
Bitte senden Sie mir alle bereits erschienen Ausgaben zum Sonderpreis 
DM 37,-- (Sept. 78 — Okt. 79, außer Nr.3/4 1978, Nr. 2, 4,11/12 1979) 
Jahrgang 1980 DM 49, — 

Ich bezahle im voraus für..........Jahrle) DM.................. ‚ Pschk. München 15994807, 
Dresdner Bank München Kto. 5390 370, BLZ 700 800 00. 


Ich bitte um Lieferung auf Rechnung. 


Ich bitte um Abbuchung von meinem Konto (Giro od. Postscheckkonto) 


OO 00000 


KION ee BIZ oe 
Gekdinstitut:....eeeesssesssesosssnsnnnnnennnnenee 0) 0 RR ENTRIES TEN 
ame/Vorname 
Straße / Hs-Nr. 


PLZ rt 


ELCOMP| 


Absender 
Bitte deutlich ausfüllen 


Vorname/Name 


Beruf MIKROCOMPUTER BOOK STORE 


Straße/Nr. Tegernseerstr. 18 


D-8150 Holzkirchen /Obb. 


Piz Ort 


..—— nn... | nenne ten annennen enter een en een een nenn 


sn nnnnnnunununtennaunee men tnnn tern nun nannten ent een nee nenn 


Straße 

( ) 

PLZ Ort 

BEE ERUEEE RESTE EOINIERUEERENEHEN Ing. W. Hofacker GmbH 

Telefon Tegernseer Straße 18 
D-8150 Holzkirchen 


Das Abonnement wird automatisch verlängert 
(Kündigung 8 Wochen z. Abonnement-Ablauf) 


Fachbücher 


M6800 Mikroprozessor 
Programmierhandbuch 


ikrocomputer 


deutsch 


Aktiv Training Microcomputer 8080 
8085 

Dieses Werk mit über 360 Seiten be- : 
schäftigt sich ausschließlich mit den 
Microcomputerbausteinen und Peri- 
pherieelementen der 8080A und 
8085 Microprozessoren. Grundlagen, 
Einführung 8080 Microcomputer, 
Programmieren in Assembler, PL/M 
Compiler, Speicherbausteine u. v.a. 
mehr. Ideal für jeden, der ein System 
mit 8080, 8085 CPU besitzt. Auch 
der Z80 Systembesitzer kann von 
diesem Buch .viel profitieren. Am 
Schluß des Buches finden Sie noch 
ca. 150 Programmlistings in Maschi- 
nensprache (Nützliche Utilities und 
Spielprogramme). 

Best.-Nr. 30 DM 49,80 


Mikroprozessoren, Eigenschaften 


und Aufbau, Teil 1, H. Bernstein 
Grundlagen, Eigenschaften und Auf- 
bau von Mikroprozessoren, Organi- 
sation von Recheneinheiten und Mi- 
kroprogrammen. Programmierung 
und Klassifizierung von Mikropro- 
zessoren. Ablaufdiagramm, Flußdia- 
gramm. Ein-Chip-Technik und Multi- 
Chip-Technik,, Transfer- und Sprung- 
funktionen. Speichertechnik: RAMs, 
ROMs, FIFO, FILO. Programmier- 
bare logische Arrays (PLA). An- 
wendungsbeispiele und Anwendungs- 
bereiche. Über 120 Seiten. 

Best.-Nr. 22 DM 19,80 


M6800 Mikroprozessor Programmier- 


handbuch 
Ein deutschsprachiges Handbuch für 


den 6800 Microcomputer. Grundla- 
gen, Einführung und genaue Be- 
fehlserklärungen. 

Best.-Nr. 8063 DM 19,80 


Hobby Computer Handbuch, C. Lo- 
renz 

Eine leicht verständliche Einführung 
in die Mikrocomputertechnik. Diese 
sehr umfangreiche Einführung in die 
Microcomputertechnik dürfte zu die- 
sem Preis einmalig sein. Auf über 
450 Seiten finden Sie— Grundlagen 
der Computer- und Microcomputer- 
Technik, was ist ein Microcompu- 
ter? Microcomputer KITs, Einplati- 
nencomputer, CAT, OSI, POLY 88 
u. v. a. Das ideale allumfassende 
Buch für den Microcomputertech- 
niker. Für Industrieanwendung eben- 
so geeignet wie für den Hobby- 
Computer-Fan. Über 450 Seiten. 
Best.-Nr. 25 DM 29,80 


8, 28000 


Microcomputertechnik 

280, Z8, Z8000 v.H. P. Blomeyer- 
Bartenstein 

völlig neu überarbeitete Auflage. In 
diesem Buch finden Sie eine umfas- 
sende, einführende und weiterführen- 
de Hilfe zum Einstieg in die Micro- 
computertechnik mit vielen Schalt- 
und Programmierbeispielen. Als 
praktische Betrachtungsgrundlage 
dient das supermoderne Microcom- 
puterkonzept ZB0OA von Zilog. Das 
Buch geht auf alle wichtigen Zu- 
sammenhänge ein und erklärt diese 
dem Leser so ausführlich, daß kaum 
noch Fragen offen bleiben. Über 240 
Seiten. Best.-Nr. 24 DM 29,80 


C LORENZ 


Eine leicht verständliche 
Einführung in die 
Mikrocomputertechnik 


Mikrocomputer Programmierbei- 
spiele für 2650, Dr. J. Hatzenbichler 
Eine Einführung in die Programmie- 
rung von Mikrocomputern anhand 
des Prozessors 2650 von Signetics. 
Viele Programmierbeispiele in Ma- 
schinensprache, die Sie auf einem 
preiswerten Mikroprozessorsystem 
MIKIT 2650-2 ausführen können. 
Zeitschleifenprogramme, Blinkschal- 
tung, Lauflicht, Stufenzähler, Elek- 
tronischer Würfel, Stopuhr, Reak- 
tionszeittester, Computer Musik Pro- 
gramm u. a. Zu diesem Buch ist auch 
ein komplett aufgebautes und ge- 
testetes Mikrocomputersystem er- 
hältlich, auf dem Sie alle beschrie- 
benen Programme selbst ausführen 
können. Über 120 Seiten. 


Best.-Nr. 33 DM 19,80 


Or J.Ratzenkichler 


toyıık 


Adreusun. 
Addiisas und 


Magister 


INSTERIENE 
Raster 


Programmieren 
in 
Maschinensprache 


Handbuch für SC/MP 

Ein echtes Handbuch für SC/MP 
(INS8060) Microcomputerbesitzer 
und solche, die es werden sollen. 
Komplette Einführung mit vielen 
Schaltbeispielen, Schaltbildern und 
Programmlistings in Maschinenspra- 
che und TINY BASIC. Komplettes 
ELBUG-Listing, CPU-Karte, RAM- 
Karte, ROM-Karte, ROM-Program- 
mierer, Cassetten-Interface, Fernseh- 
interface, Netzteil, Hex Ein-/Ausga- 
be, SC/MP Einkartenmicrocomputer 
u.v.a. mehr. 


Best.-Nr. 108 DM 29,80 


Programmieren in Maschinensprache 
mit 6502 

Ein deutsches Buch für jeden, der 
mit dem 6502 Mikroprozessor arbei- 
tet. Grundlagen Maschinensprache, 
Beschreibung des Extended Monitors 
für Superboard von Challenger. Aus- 
führliche Beschreibung jedes einzel- 
nen Maschinenbefehls mit Beispiel. 
Übersichtliche Beschriftung. Sie fin- 
den jeden Befehl schnellstens und 
können nachlesen, was im Computer 
selbst geschieht. Am Schluß finden 
Sie Listings und Beschreibung für 
einen kompletten 2-Pass-Assembler, 
Editor, Binder und Disassembler. 
Für PET 8K, alte ROMS und für die 
neue CBM Serie. 
Best.-Nr. 118 


DM 98,-- 


6502 _Microcomputer-Programmie- 
rung, Peter Heuer 

Eine deutschsprachige Einführung in 
die Maschinensprachenprogrammie- 
rung anhand des 6502 Microcom- 
puters. Ein echtes Anleitungsbuch 
zum Einstieg in die Microcomputer- 
technik mit Hilfe des KIM-1. Viele 
Programmierbeispiele, die von einem 
Pädagogen speziell für Anfänger ent- 
wickelt wurden. Auch PET, AIM, 
SYM und ATARI-Besitzer brauchen 
dieses Buch. 


Best.-Nr. 109 DM 29,80 


Mikroprozessor, Teil 2 
von H. Bernstein. Die Fortsetzung 
unseres ersten, so erfolgreichen Bu- 
ches über Mikroprozessoren. Tech- 
Mikroprozessor nologie von Mikroprozessor- und 
Speicherbausteinen. Festwertspei- 
cher, PROM, REPROM, FIFO, 
Schieberegister, MPR-Register, ARL- 
Register, SAR -Register. Aufbau eines 
Mikroprozessorsystems mit 8080, 
RAM- und ROMSchnittstellen. Be- 
fehlssatz 8080. Über 120 Seiten. 
Best.-Nr. 26 DM 19,80 


HH. Bernstein 


Programmierhandbuch für PET > 
C. Lorenz 

Ein vom Hofacker-Verlag für den 
PET produziertes Buch. Es beginnt 
da, wo Ihr mitgeliefertes Handbuch 
aufhört. Einführung Maschinenpro- 
grammierung, Assembler, Ein-/Aus- 
gabeprogrammierung, Programmier- 
tricks, Analog/Digital-Wandier, Gra- 
phik, Spracherkennung u. v. a. 
mehr. Viele Listings, die Sie selbst 
eintippen können. 324 Seiten. 
Best.-Nr. 110 DM'29,80 


Microcomputer Lexikon und Wörter- 
buch von A—Z,C. Lorenz 

Ä Englisch/Deutsch — Der Fachaus- 
druck wird übersetzt, ausführlich er- 
klärt und erläutert. 
Deutsch/Englisch — Übersetzung des 
Fachausdrucks. Ein Hilfs- und Ar- 
beitsbuch für jeden, der sich heute 
mit der modernsten Elektronik be- 
schäftigt. Viele engl. Ausdrücke wer- 
den heute in der Elektronik, Com- 
puter- und Mikroprozessortechnik 
verwendet und oft fehlt uns eine ge- 
naueste und präzise Erläuterung. Ein 
Lexikon und Wörterbuch in einem 
einzigen Buch vereint. 
Best.-Nr. 28 DM 29,80 
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Mikrocomputer 
Fachbücher 


Intel Application Notes (8080 ,8085, 
8255, 8251) 

Dieses Buch braucht jeder, der mit 
8080, 8085 oder Z80 Mikropro- b 
zessoren arbeitet. 

Wir haben die interesantesten Appli- 
kationsberichte in diesem Buch zu- 
sammengefaßt. 

Aus dem Inhalt: Designing with 
Intel’s Static RAMs 2102, Memory 
Design with the Intel 2107B. 

8255 Programmable Peripheral In- 
terface Applications, Using the 8202 
Dynamic RAM Controller u. v. a. 
Best.-Nr. 153 DM 29,80 


englisch 


Microsoft 8K BASIC Reference 
Manual 

Eine sehr gute BASIC-Einführung. 
Auch als Handbuch zum Nachschla- 
gen bestens geeignet. Ideal für je- 
den PET, CBM, TRS80, KIM- 
BASIC, SYM-BASIC, AIM- und 
APPLE-Besitzer. 73 Seiten DIN A4 
mit vielen Beispielen. Eine Produk- 
tion des Hofacker-Verlages in engli- 
scher Sprache. 

Best.-Nr. 151 DM 19,80 


Care and Feeding of the Commodore b 
PET 

Das ideale Buch für den Hardware- 
Bastler. Viele Tricks, Schaltbilder, 
Hinweise und Erläuterungen für den, 
der gerne selbst Erweiterungen bauen 
möchte. Memory Map für 8K PET 
und CBM, Bauanleitung für eine 
serielle Schnittstelle u. v. a. mehr. 
Best.-Nr. 150 DM 19,80 


Expansion Handbook for 6502 and 
6800 

Das ideale Handbuch für alle KIM, 
SYM, AIM, PET und Challenger 
Computer-Freunde. Das Buch be- 
schäftigt sich ausschließlich mit dem 
S44-Bus. Dies ist exakt der Bus 
von SYM, AIM und KIM. Sehr viele 
Schaltbilder: CPU-Platine, Hex-Ta- 
statur Eingabe, Kansas City Inter- 
face, RAM u. ROM-Karte, Analog- 
Eingabe Board u. v. a. Das Buch ist 
für jeden 6502 Systembesitzer un- 
entbehrlich. Ca. 150 Seiten 


Best.-Nr. 152 DM 19,80 


WIARUONCOKEB Nies. YA 


by brice ward 


Microprocessor Programming for the 


Computer Hobbyist 


Dieses buch ist speziell für den 
geschrieben, 
der sich bereits mit weiterführen- 
den Programmiertechniken und Da- 
tenstrukturen beschäftigen möchte. 
Inhalt: Höhere Programmiersprachen 
(PL/M,PL/1), arithmetische Funktio- 
nen, Suchprogramme werden im Zu- 
sammenhang mit dem Schachspiel- 
problem behandelt. Über 380 Seiten 


Computer-Hobbyisten 


in englischer Sprache 
Best.-Nr. 952 


> Miereprocessor 


DM 39,-- 
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Microprocessor/Microprogramming 
Handbook, Brice Ward 

Ein praktisches Handbuch für jeden, 
der sich mit Mikroprozessoren be- 
schäftigen möchte. Auf über 290 
Seiten finden Sie Grundlagen, alles 
über Programmierung und Anwen- 
dungsbeispiele der interessantesten 
integrierten Schaltungen. Inhalt: Ein- 
führung in die Mikroprozessortech- 
nik. Der Mikroprozessor von innen. 
MCS4, MCS40, MCS80, Speichersy- 
steme, Mikroprogrammierung in Ma- 
schinen- und Assemblersprache. 
Best.-Nr. 785 DM 35.-- 
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Artificial Intelligence, Neil Graham » - FI ii se un 
OLE. 


: Making machines "lan 


Hier ist endlich ein Buch speziell 
über künstliche Intelligenz. Der Au- 
tor benutzt Computerspiele und Ro- 
botertechnik für die illustrative Be- 
handlung dieses brandheißen The- 
mas. Was ist der Unterschied zwi- 
schen einer Lösung einer komple- 
xen Programmieraufgabe und der 
Programmerstellung für intelligente 
Computerentscheidungen. 

Best.-Nr. 1076 DM 29,80 


Tr ee lu) .: 


TAB BOORSınD Na sn 4 How to build your own working 
. ROBOT PET 

An incredible book that shows you 

how to construct your own robot 


An merschhte bock that shows yau huw tn Lonsteur.! yonr own ıabat 


and progsarı n includes full detads an bandıng a navı ‚arıan System - 
Pad a hearing methad tEucom). a way ot ale KAuchgeni, and prog ram t : ncludes fu N de 
and an understandshle kangnage and gramm jfreikant 


tails on building a navigation sy- 
stem (Soniscan), a hearing method 
(Excom), a way of talking (Audigen) 
and an understandable language and 
grammer (Fredian). 

Eine wertvolle Hilfe für alle, die 
sich einen Roboter bauen wollen. 
(8085) CPU). Viele wertvolle Schal- 
tungen, die Sie im Zusammenhang 
mit TRS80 oder 8085-Computern 
verwenden können. 238 Seiten. 
Best.-Nr. 1141 DM 29,80 


Beginner’s Guide to Computer Pro- > Katar 
gramming, Brice Ward 

Eine ideale Einführung in die Pro- 
grammierung von Computern (Mi- 
croprozessoren). Das Buch beginnt 
mit der Entwicklung einer einfachen 
Programmiersprache für den eigenen 
Bereich und zum Selbststudium, so- 
dann wird auf andere Sprachen über- 
gegangen. Inhalt: Grundlegende Pro- 
grammkonzepte, 1/O-Schaltungen, 
Flußdiagramme, Programmtest, 
Schleifen, Indexregister, versch. Pro- 
grammiersprachen, Compiler, Cobol 
u. v. a., 480 Seiten, 364 Bilder ‚in 
englischer Sprache. 

Best.-Nr. 1015 DM 29,80 


PROGRAMMING MICROPROCESSORS, M.W.McMurran 

Dieses Buch reicht von der grundlegenden Microprozessororganisation über 
Zahlensystem, Flußdiagramme, Adressierung, Assemblierung über Subrou- 
tinenbeschreibungen, Programmierhilfen, Datenaustausch, Compilern bis hin 
zu speziellen Programmiertechniken. Schwergewicht Software. 270 Seiten, 
in englischer Sprache 
Best.-Nr. 985 


DM 35.-- 


25 Games in BASIC (Listings). Die 
4 Programme laufen mit kleinen Ände- 
rungen auf den meisten Microcom- 


putern. Inhalt: Number, Letter, 
Stars, Trap, Bagels, Mugwump, 
Hurkle, Snark, Reverse, Button 


Chomp, Taxman u.v.a. 


Best.-Nr. 8057 DM 9,80 


Digital u 
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How to nesign circuits to interface MICTOPFOCENSUNG. 
dev alny workt. 


Digital Interfacing with an Analog 
World, Joseph J. Carr 

Wie entwirft und baut man Inter- 
faceschaltungen für Microcomputer? 
Der Schwerpunkt liegt bei der Vei 
bindung mit der analogen Welt. 
Viele Tabellen, Schaltungen, Be- 
rechnungen und Hinweise. Über 400 


Seiten. 
Best.-Nr. 1070 


Complex Sound Generation with 
SN 76477 

Ein Applikationsheft für einen der 
interessantesten integrierten Baustei- 
ne unserer Zeit. Ein LSI-Baustein 
zur Tonerzeugung. Je nach äußerer 
Beschaltung können Sie mit diesem 
Baustein die verrücktesten Töne er- 
zeugen. 

Dampfeisenbahngeräusch mit 
Dampfpfeife, Vogelgezwitscher, 
Hundegebell, elektronische Orgel, 
Schuß mit Explosion u. v. a. mehr. 
Best.-Nr. 154 DM 19,80 


DM 39,-- 


DR.DOBB’S JOURNAL OF COMPUTER CALISTHENICS 
AND ORTHODONTIA, VOLUME ONE 

Die komplett gebundene Sammlung der ersten sehr interes- 
santen Ausgaben von Dr.Dobb’s Journal. Inhalt: Entwickeln 
Sie Ihre eigene BASIC-Sprache, Entwicklungshilfen für 
Tiny Basic, Wie programmiere ich den ALTAIR 8800 für 
Computer-Musikstücke, kompl.Listing des Denver Tiny- 
BASIC ’ Computer für Musik und Komposition, Hardware 
und Software für Sprachsynthese, MINOL - ein Tiny Basic 
mit String, in 1,75 k Byte, System Monitor für 8080, Palo 
Alto Tiny Basic, kompl.Listing, 8080 Text Editor, Tiny 
Trek-Game, Fließkommaroutinen für 6502, Comp Music, 


.Z 80 KIT, 6800 Assembler, u.v.a., ca. 260 Seiten A 4 


Best.-Nr. 80/20 DM 59.-- 


How to Build your Own Working 
j | 16-Bit-Microcomputer von Ken Trac- 
HOW TO ton 
Alles, was Sie über den neuen Super- 
microprozessor TI9900 wissen müs- 
sen. Beschreibung des Schaltkreises, 
Peripherie-Bausteine für TMS9Y900. 
Tricks, Systemaufbau etc. Sehr in- 
teressant, da der TMS9900 das Herz 
des neuen Texas Instruments Perso- 
nal Computers ist. 
Best.-Nr. 1099 DM 14,80 


Runıyiliäg yaı need % kuaw in Ne tke new singe 
Sdeneud TB CPU single-ciug processr 


By Ken Trafton 


Microprocesssor Cookbook, von > 
Michael Hordeski 

A chipby-chipcomparison of todays 
modern microprocessors. 

Die wichtigsten Prozessortypen wer- 
den genau beschrieben (Schaltung, 
Blockdiagramm, Befehlslisten, Pro- 
grammbeispiele) und verglichen. 
8080, 6800, F8, Z80, TMS 9900, 
SC/MP, Bit Slices, R6500, 264 S. 
Best.-Nr. 1053 DM 24 80 


The BASIC Cookbook, von Ken 
Tracton 

Ein komplettes Dictionary mit BA- 
SIC-Befehlen. Alle Befehle sind in 
alphabetischer Reihenfolge geordnet 
und jeder Befehl genau beschrie- 
ben. Zu jedem Befehl ist ein De- 
monstrationsbeispiel beigefügt. 
Dieses Buch braucht jeder BASIC- 
Programmierer! 

Best.-Nr. 1055 DM 24,80 


BAnIL 


Bücher für Microcomputer deutsch 


C.lorenz BASIC Programmierhandbuch von 
C. Lorenz 

Einführung und Nachschlagewerk. 
Speziell für die BASIC-Versionen der 
modernen Microcomputersysteme. 
Jeder Befehl wird ausführlich be- 
schrieben und ein Beispielprogramm 
gezeigt. Sehr übersichtlich und prak- 
tisch. Am Schluß finden Sie ein 
komplettes BASIC-Programm, das 


und Nachschlagewerk Ihnen über einen Computer BASIC 
lehrt. 
Best.-Nr. 113 DM 19,80 
Microsoft BASIC Handbuch » 
Ein Buch für alle, die das moderne 


Microsoft BASIC (BASIC8O und 
Standalone BASIC) kennenlernen 
möchten. Ideal als Einstieg und 
Nachschlagewerk. Mit vielen Beispie- 
len (Programmlistings) und Hinwei- 
sen. Ideal auch für die Schule, Aus- 
bildung und innerbetriebliche 
Schulung. Ca. 160 Seiten. 

Best.-Nr. 121 DM 29,80 


4 TINY BASIC Handbuch, ‚H. Hermann 

Das erste deutschsprachige Hand- 
buch über Tom Pittman’ s TINY 
BASIC. Eine Einführung in die 
TINY BASIC-Programmiersprache. 
Wie kann ich meinen Computer 
(KIM-1) erweitern und BASIC pro- 
grammieren. Systemvorschläge. Viele 
Programmierbeispiele, Tricks und 
Kniffe. 
Best.-Nr. 34 DM 19,80 


57 praktische BASIC-Programme 

C. Lorenz, Ken Tracton 

Ein Buch mit technisch-wissenschaft: 
lichen Programmen und einer großen 
Anzahl von Spielprogrammen in 
BASIC. (Games). Ein Buch für je- 
den, der sich mit dem faszinieren- 
den Hobby der Microcomputertech- 
nik befassen will. Alle Listings sind 
in BASIC und können auf den 
meisten Personal Computer Syste- 
men gefahren werden. Alle Program- 
me wurden sorgfältig getestet. Zum 
Beweis ist für jedes Programm ein 
Protokoll des Probelaufs abgedruckt. 
Best.--Nr. 31 DM 39,-- 


The A to Z Book of Computer 
Games 

26 aufregende und instruktive Spiel- 
programme fix und fertig zum Ein- 
geben in jeden BASIC-Computer. 
Nach einer kleinen Einführung in die > 
Programmierung folgen interessante 
Spielprogramme, die jeder Micro- 
computerbesitzer gesehen haben 
muß. 

(Bandit, Cokes, Dice, Elevate, Fire- 
card, Gunners, Hobbit, Invert, Just- 
luck, Knights, Lapides, Match, 
Naughts + Crosses, Otello, Par 2, 
Quantal, Roulette, States Twenty 1, 
Ultranim, Verboten, Wumpus, X- 
Change, YATC,END. 

Am Schluß werden noch einige Tips 
zur Umwandlung in andere BASIC- 
Versionen gegeben. 

Über 300 Seiten. 

Best.-Nr. 1062 DM 29,80 


TAB HOONS/NN: 1088 


24 Tested Ready to RUN Game Pro- > 
grams in BASIC, Ken Tracton 

Spaß- und Spielprogramme in BA- 
SIC. Viele Programme enthalten spe- 
zielle Anpassungshinweise an die 
Homecomputertypen TRS80 und 
PET. Viele Graphik- und Zeichen- 
programme. Ideal für jeden BASIC- 
Computer-Besitzer. | | 
Best.-Nr. 1085 DM 24,80 BT EN TEEN 


Bücher für Microcomputer 


TRö-60 


M.Stübs Programmieren mit TRS-80 von 
Martin Stübs 

Das erste in einem deutschen Verlag 
produzierte Buch über den erfolg- 
reichen Personal Computer von 
TANDY. Ein Buch für jeden, der 
einen TRS-80 bereits besitzt oder 
vor der Entscheidung steht, wel- 
chen Computer er sich anschaffen 
soll. Einführung, Programmiertricks, 
Erweiterungen, Maschinenprogram- 
mierung und viele Programme (Li- 
sting mit Beschreibung) 

Best.-Nr. 111 DM 29,80 


The First Book of 80-US 

Für den TRS80 Freund eine echte > 
Preissensation. Die ersten fünf Hefte 

aus 80-US Journals in einem Sam- 
melband zusammengefaßt. Voll mit 
vielen sehr interessanten Hard- und 
Softwäreideen, Tricks. Viele kom- 
plette Programmbeispiele (Listings) 

in BASIC und Z80 Maschinenspra- 

che. Über 250 Seiten DIN A4. Far- ne N A 
biger Umschlag. Dieses Buch sollte U ae 
jeder TRS80-Besitzer oder der es ee 
werden will, im Schrank haben. 
Best.-Nr. 155 DM 19,80 


25 Games in BASIC (Listing) Die Programme laufen auf dem PET. Inhalt: Number, Letter, Stars, 
Trap, Bagels, Mugwump, Hurkle, Snark, Reverse, Button, Chomp, Taxman u. v.a. 


Best.-Nr. 80/57 | 9,80 
57 Practical Programs and Games in BASIC, ca. 200 Seiten Listings. 

Best.-Nr. 1000 DM 35,-- 
BASIC Software Library Vol. |, Personal Bookkeeping, Games and Pictures, 49 BASIC-Programme. 
Best.-Nr. 80/50 DM 99 -- 
BASIC Software Library Vol. IV, General Purpose und viele Spiele, 21 BASIC Programme. 

Best.-Nr. 80/53 DM 39 -- 


Dr. DOBBs COMPUTERZEITSCHRIFT. Die komplett gebundene Sammlung der ersten, sehr ınteres- 
santen Ausgaben. Sehr viele Programmlistings für den Hobbycomputerfan. 
Best.-Nr. 80/20, ca. 260 Seiten DIN A 4 DM 59 .-- 


Microprocessor Software Handbuch, C. Lorenz 
Microcomputerprogrammierung für Anfänger und Fortgeschrittene. BASIC-Einführung in Deutsch. 
Best.-Nr. 27, über 280 Seiten DM 29 80 


PET 6502 Programmierhandbuch, das Handbuch für jeden PET-Besitzer und solche, die es werden 
wollen. Einführung, Programmbeispiele, PET-Erweiterunasmöglichkeiten. 
Best.-Nr. 110 DM 29,80 


The BASIC-Cookbook, Ken Tracton 

Über 138 Seiten BASIC-Einführung mit vielen praktischen Programmierbeispielen. Alphabetisch ge- 
ordnet, ideal auch als Lexikon.(Diagnose, Erhöhung der Rechengeschwindigkeit u. v.a.) 

Best.-Nr. 10565 DM 24,80 


A Beginner s Guide to Computers & Microprocessors — with projects 

Eine Einführung von Anfang an in die Mikroprozessortechnik. Bauen Sie Ihren eigenen Computer, 
programmieren Sie ihn und bedienen Sie ihn. Viele praktische Schaltungen. Über 300 Seiten. 

Best.-Nr. 1015 DM 29,80 


650X Software Manual (Programming Manual), sämtliche wichtige Daten und Programmierhinweise 
für die 6502 Programmierung. Ca. 200 Seiten. 


Best.-Nr. 80/42 DM 19,80 
650X Hardware Manual, 6502 Systemorganisation, Grundlagen, Applikationshilfen u. v. a. mehr. 
Best.-Nr. 80/43 DM 19,80 
6500 Seminarheft (Briefing Notebook), eine kleine Einführung in die 6500 Systemfamilie. 

Best.-Nr. 80/45 DM9 80 
6500 Datenblätter, eine Sammlung aller wichtigen Datenblätter aus der 6500-Familie. 

Best.-Nr. 80/46 DM 9,80 


6502 Microcomputer, Aufbau und Programmierung. Ein deutsches Anleitungsbuch zum Einstieg in 
die Microcomputertechnik mit Hilfe des KIM-1. Viele Programmierbeispiele von einem Pädagogen 
speziell für den Anfänger entwickelt. (PET, VIM und AIM) 

Best.-Nr. 109 DM 29 80 
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NOTIZEN 


NOTIZEN 


NOTIZEN 


Auch Sie brauchen ELCOMP! 


1. Jahrgang Volume 1 September 1978 DM 3.50  SFr4- 0S30.- Nr. 1 


ER 
Pe 
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AUS DEM INHALT: 5 Symbole 
j ER Microcomputer Grundkurs 
3 2 ELCOMP Software-Shop 

North-Star Horizon Computer 
Software für Z 80 Systeme 
Selbstbaucomputer mit Z 80 
Bauanleitung für ein eigenes 
Microcomputersystem, Teil 1 
8085 Microcomputer-KIT 
Microcomputer-Anwendung im Klein- 
betrieb 
S-100 Bus Adapter für PET 2001 
Exidy - Ein neues Microcomputer- 
System mit Z 80 
Hauskauf mit BASIC 
Heimcomputer-Vergleichsliste 
BASIC-Programm FACTORS 
Der S-100 Bus (Beschreibung) 


Viele Programme für den PET 


Jahresabonnement DM 59,-- . - 
incl. Mwst. und Versand. ee 


AIM-Computer von Rockwell 


RDLEEETWETERTERETTR er En Be Erw eitern Sie Ihren KIM-1 
Zurückliegende Hefte zu 56 Termine“ Neue Bch 
Originalpreisen noch verfüg- ‘ 


bar. 


HOFACKER-VERLAG 

Ing. W. Hofacker GmbH 

Tegernseer Straße 18 

D-8150 Holzkirchen/Obb. 


Die Fachzeitschrift für MICROCOMPUTER 
Eine unentbehrliche Informationsquelle für alle Elektroniker 


Microcomputer-Anwendungsbeispiele Neue Produkte 

Künstliche Intelligenz Betriebssysteme für Floppys 

Block -Strukturierte Programme Programmiertechniken 
Datenverarbeitung im Kleinbetrieb Software-Quellen 

Club-Neuheiten Programmierbeispiele 

Computer und Kunst Soziale Aspekte der Microcomputer- 
Musik mit dem Computer technik 

Monitore für 8080, 6800, 6502, Z 80, Technologische Neuheiten 

SC/MP, 2650, 1802 Anwendungen in der Meß- und Regel- 
Eigenbau-Computersysteme technik 

Interface-Techniken Anwendungen bei Funk -Amateuren 


Microcomputer KITs 


10 
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20 
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115 
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19 


28 


as Bern u. "Bauanleitung buch 
Elektronik im Auto Eher 
‚IC- Handbuch, ETL, CMOS, fest ER 
IC-Datenbuch, TTL, cMoSs, Linear vun er 
IC-Schaltungen, TTL, CMOS, Linear DL 
Elektronik Schaltungen 


f rogrammieren in ‚Maschinensprache mit CBM 
f. in dieMi licrocomp.-Progr. mit 6800 
Programmieren mit dem cBM 

| 129 ELCOMP-Leser Programmierhandbuch 

5 130° Programmierbeispiele für CBM 


IC-Bauanleitungs-Handbuch AS Cobol für Anfänger 
Feldeffekttransistoren a 5,00 | 132 CP/M-Handbuch 
Elektronik und Radio en | FR MOB 


a Welches Betriebssystem brauche ich? 
Be ‚Bücher in englischer Sprache 
50 Careand Feeding of the Commodore PET 
151 8k Microsoft BASIC Reference Manual 

152° xpansion Handbook. for 6502 and 6800 

Ben Me 0E FR | Microcomputer Application Noies 

CMOS Teil 1, Einführung, Entwurf, Schaltbeispiele i 105 : ; 154 Complex Sound Generation using the SN76477 
CMOS Teil 2, Entwurf und Schaltbeispiele Bl 155 The Fi irst Book of 80-US (TRS-80) 
CMOS Teil 3, Entwurf und ee =. 19,80 _Smal 

IC-Experimentier Handbuch 
Operationsverstärker 
Digitaltechnik Grundkurs ale 
Mikroprozessoren, Baivechanien und A. in 
Elektronik Grundkurs, Kurzlehrgang Elektronik 
Microcomputer Technik : AR 
Hobby Computer Handbuch 
Mikroprozessor, Teil? 
Mikrocomputer Software Handbuch 
Lexikon + Wörterb. f. Elektr. u. Mikroprozessor LEM i 
Mikrocomputer Datenbuch SE SEaRr n SEEDR 
Aktivraining Mikrocomputer 
57 Programme in BASIC 
ATARI BASIC Handbuch 
Microcomputer | Programmierbeispiele ERS ih: 
TINSGBASIC Handbuph : 2 2.0.2.0 ,..2.9980 
Der freundliche Computer nn 29,8 
CB-Handbuch 
Oszillographen- Handbuch 

1000 Elektronik Schaltungen 
Praktische Antennentechr ik 
SC/MPM ikrocomputer-Handbuch 
6502 Microcomputer Programmierung 
Programmierhandbuch für PET 
Programmieren mit TRS- 80 se a 8,0 
PASCAL-Programmier-Handbuch 2720001 


IC-NF Verstärker 

Beispiele Integrierter Schaltungen eis) 
HEH, Hobby Elektronik Handbuch SE 
IC-Vergleichsliste 

Optoelektronik Handbuch 


ar to Build a own er ROBOT PET" 
001 Things to do with Y.P. C. 

169 The Giant Book of Computers 

8029 Z-80 Assemblerhandbuch 

8042 6500 Software Manual 


8043 6500 Hardware Manual 
BASIC-Programmier-Handbuch ee 19,80 | 8048 BASIC Software Vol. VI 
Der Microcomputer im Kleinbetrieb 39,80 | 8049 BASIC Software Vol. VIl 
FOCAL Programmier-Handbuch I 19,80 | 8050 BASIC Software Vol. I 
Einführung 16-Bit Microcomputer 29,80 | 8051 BASIC Software Vol. II 


FORTRAN für Heimcomputer 19,80 | 8052 BASIC Software Vol. II 
Programmieren in Maschinensprache mit dem 6502 98,00 | 8053 BASIC Software Vol. IV 
Programmieren in Maschinensprache (Z80) 49,00 | 8054 BASIC Software Vol. V 


RE 


Anwenderprogramme für TRS-80 u. Video Genie 


| 29,80. ei: Den WERD 0 Pregtainmierhärdb. 
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49,00 
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19,80 
29,80 
19,80 
19,80 
29,80 
19,80 
19,80 
19,80 
29,80 
19,80 
19,80 
29,80 
19,80 


24,80 | 


24,80 | 
2480 
29,80 
39,00 
29,80 

29,80 
a 
‚ 35,00 
19,80 
14,80 
29,80 
29,80 
‚39,00 
29,80 
19,80 
19,80 
199,00 
159,00 
99,00 
99,00 
149,00 
39,00 
39,00 
19,80 


